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Secondar i Bootstra Rote —™ 
1A Pe ODE u DESCRIP OR 


arte “read A image file 
ImAce INT - Lookup a specif oe 


= move the PFN bite See if PUTStCA, PAGES reduced 
ee - load the code from the 4 ed file 
ah os - Set up Virtual to Logical Rap 
BOOSMAP - ~s Virtual to Logical Block 
BOOSREADF ILE = Routine to read specified piece of f 
CONEOF CHECK - Read specified virtual blocks of a f 
TORUS = - Read or Write Logical Block 
- Use parameter file 
GET COMLOCL £68 - Routine to read console information location 


SS VEMABPED = - O MOVE FROM PHYSICAL TO MAPPED MEMORY 
ALLOC_POOL = Allocate Pool From the top 
OOSFACMSG - Qutput facility error message 
BOOSTYPE_ASCIC = Type a counted ASCII string 
Unexpected Machine Check Handler 
BOOSGIVEHELP - Print Help information 
Miscellaneous constants and temps 
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-TITLE SYSBOOT = VMS Secondary Bootstrap Routine 
-IDENT ‘vQ4-000' 


ARRBAAAABRRBAAAAAAAAAALALALAALASASALASEALL ASA SALA SALE ASARLAAASAAS ESSE S ASRS ASS SS 


0000 1 
00 § 
00 : 
00 4; 
000 > 3 4% 
4 8 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
000 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8000 8 :* ALL RIGHTS RESERVED. * 
PY ® 
0000 10 ;* THIS SOFTWARE IS FAN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
4 \¢ 3* petal ON OF i“ on eat Sg lttal NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 13 ;* COPIES T “ce © Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON, 0 TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4464 1? 3* TRANSFERRED. * 
3* we 
0000 i 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 i 3* CORPORATION. * 
3* te 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR nore OF ITS * 
0000 $$ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
0000 235 ;* * 
0000 24 53 * 
0000 25 SERA A EERE AERA EERE ERAAARAAERERKERT ERR ee 
0000 26 s+ 
0000 e7 : ey 
0000 28 ; Facility: System bootstrapping and initialization 
0000 29 : 
0000 30 ; Abstract: 
0000 a) 3 
0000 a i ? 
0000 33; Environment: 
0000 34 ; Mode=Kernel Memory Management OFF 
9000 3 ; IS=1, IPL=31 
44 3 3; Author: RICHARD I. HUSTVEDT, Creation date: 28-APR-1978 
0000 39 ; MODIFIED BY: 
0000 40 ; 
0000 41 ; v03-062 enLoree P Lieberwirth 24-Aug-1984 
0000 $8 : Fix bug in GETCONLOC_790 that enabled the logical console 
44 re : imcorrectly. 
0000 45 ; v03-061 WHM0008 Bill Matthews 25-Jul-1984 
0000 46 ; Initialize the keyboard translation table address for QVSS 
ti rt 3 console terminal support. 
0000 49 ; v03-060 neg gh Trudy C. Matthews 24-Jul-1984 
0000 50 ; Che e if the version of VMB has support for the 
44 2) 3 RPSSB CTRELIR field. 
0000 2g 3 v03-059 WwHM0007 Bill Matthews 16-Jul-1984 
48 2 : Add support for QVSS as a console terminal. 
0000 56 ; v03-058 wacgess Wayne Cardoza 05-Jul-1984 
0000 37 3: 


Don't second guess LRPMIN,. 
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v03-057 wMC0057 Wayne Cardoza 28-Jun-1984 
Survive very fragmented dump file. 
v03-056 WHM0006 Bill Matthews 1984 


14-May- 
Fix to not copy SYSBOOT's copy of EXESGL_TODR over the copy 
from SYS.EXE 


v03-055 KDM0101 Kathleen D. Morse 02-May-1984 
Change minimum cpu microcode rev level check from 5 to 4 
for MicrovAX I. 


V03-054 wWHM000S Bill Matthews 02-May-1984 
vere use VAXVMSSYS.PAR. Don't read the SYSGEN parameter area 
wice. 


v03-053 KDM0098 Kathleen D. Morse 24-Apr-1984 
Add minimum cpu microcode rev level check for MicroVAX I. 
V03-052 WHM0004 Bill Matthews 16-A 


“~Apr-1984 
Don't use a separate parameter file if USESYSPARAMS is set to 
0 in SYS.EXE. (Needed for standalone backup environment) 


vO3-051 KPLO101 Peter Lieberwirth 11-Apr-1984 
Zero the high byte of RPBSW_BOOTNCT if VMB version is 
high enough to have set up RPB$B_BOOTNDT, but not high 
enough S035 to have properly initialized the high byte 
version . 


V03-050 WHM0003 Bill Matthews 04-Apr-1984 
Added peers to read in the SYSGEN parameters from the 
the default system parameter file. ” 
Added suapers to use file to handle ascii sysgen parameters 


that are longer than 4 bytes. 

V03-049 wMC0004 , Wayne Cardoza 28-Mar-1984 
Save the highest useable PFN. 

V03-048 CWH3048 CW Hobbs 15-Mar-1984 


Require a ‘'Y'’ response rather than a carriage return when 
switching console volumes. Also rewind the old volume before 
asking for the switch so that VAX-11/750 processors do not 
timeout waiting for the TUS8 to rewind. 


V03-047 WHM0002 Bill Matthews 08-Mar-1984 
Modification made to VMB so interface change made in WHM0001 
can be backed out. 


v03-046 KPLO001 Peter Lieberwirth 8-Mar-1984 
dere Titt RPBSW_BOOTNDT from RPBSB_CONFREG for old versions 
) ° 


v03-045 WHMO001 Bill Matthews 05-Mar-1984 : 
Add support for booting from a set of common system files. 


V03-044 MMD0248 eg Dumont, 27-Feb-1984 10:48 eae 
Add support for SMTACCESS installation specific accessibility 
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FAN O ODNOAUEWIN 9 OO NAME WN 9 OONAUS WA CO OONAUS WA) OW ONOUS WR OW 
TRIE Te Ce Te Tee eee rere re re rererererere rere rerererererererererererererere rere rere rere re rere rere rirere rere Tere 


SOOCCOOCOOSOOCOOOOSOOOOCOOSOOSOOSSOOSOSOOOSOOOSOSOOOOOOOOCOO 


SOOSCSOSCSOSCOSOSOSOSOOSOSOOSOOSOSOSOOSOSOSOSOSOSCSoSoOo 
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000 148 
0000 149 
0000 150 
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Bete Se be 


v03-043 


v03-042 


v03-041 


v03-040 


v03-039 


v03-038 


v03-037 


v03-036 


v03-035 


v03-034 


v03-033 


v03-032 


v05-031 


SEP-1984 2:11:37 VAX/VMS Macro v04-00 
-SEP-1984 SUE CBOOTS.SRCJSYSBOOT .MAR; 1 
routine | 
LYO0B6 < Larry Yetto 10-FEB-1984 15:30 
Fix truncation errors. 


TMKO001 Todd M. Katz 31-Jan-1984 
Fix a whole host of truncation errors by changing word 
to long offsets 


wMc0003 wit Cardoza 21-Dec-1983 
Prevent PHYSICAL_PAGES parameter from confusing PFN bit map. 
Make PFN Link word size converge. 


TCMO018 reuse C. Matthews 08-Dec-1983 
Initialize EXESGB_CPUDATA twice: once before the first 
CPUDISP and again after SYSBOOT reads the system parameters 
off the disk (which wipes «: che first initialization). 
Also, set ‘enable mask write oit when enabling venus’ 
Logical console Line in GeTCONLOC_790. 

Only make paged, See through SCB vector 0 harmless on a 780 
(and not on venus). 


DWT0149 David W. Thiel 14-Nov-1983 
Condition ag sy, of SCSLOA and CLUSTRLOA on the 
now 3-valued SYSGEN parameter VAXCLUSTER. 


ACG0372 Andrew C. Goldstein, 11-Nov-1983 
Tighten page protection on various system structures 


TCMO017 reer C. Matthews 27-Oct-1983 
Initialize EXE$SGB_CPUTYPE cell before initial breakpoint; 
XDELTA expects that field to be set up. 


KDM0087 Kathleen D. Morse 20-0c t-1983 
Load SCB emulation vectors from the boot-strap emulator 
Linked into SYSBOOT, not from what VMB left in them. 


KDM0084 Kathleen D. Morse 23-Sep-1983 
Add MicroVAX I tw CPUDISP. Add a patch area for SYSBOOT. 


CWH3034 _. CW Hobbs fo-hug- 1965 : 
Make it possible for SYS.EXE to cross volume boundaries 
when booting from the console. Means that no files can 
be kept open across calls to read SYS.EXE. 


TCMO016 Trudy C. Matthews 2-Aug~ 1983 
Store SID in CPUDATA field before executing any CPUDISP 
macros. Add 11/785-specific path to CPUDISP macro that 
checks hardware/microcode revs. 


KDM0061 Kathleen D. Morse  ———_- 15=Jul=-1983 
cn ange code to use cpu=specific definition for IPR ACCS, 
PR780$_ACCS, instead of cpu-independent PR$_ACCS. 


TCMO015 


10:00 


Trud Mat 27-Jul-1983 


i C thews . 
Add support for tne 1/785's different PCS/WCS version numbers. 


Page 
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v03-030 MSHOO01 Maryann Hinden gr ntes 
BOOSGETPARAM no Longer takes an argument 
v03-029 STAsoes Kerbey T. Altmann 26-Jun-1983 
Fixed truncation error. 
v03-028 ADE0001 4 Alan D. Eldridge 23-Jun-1983 
Change ‘'64"" tc cxBse OVERHEAD when calculating LRP size. 
V03-027 KTA3059 Kerbey T. Altmann  temmniticnaens 
Add support for boot device name from VMB. 
v03-026 TEROOTS rudy C. Matthews 15-Jun-1983 
Fix console Seamaant "tun in GETCONLOC_790. 
v03-025 KDM0045 _ Kathleen D. Morse 31-May-1983 
Change word displacements to longword. 
v03-024 KDM0044 Kathleen D. Morse 02-May-1983 


Load floating point emulator, if necessary, and set 
appropriate indicators in EXESGL_ARCHFLAG. 


v03-023 KTA3048 Kerbey T. Altmann 14-Apr-1983 
Grab G&H status from console for 11/780. Aacortete 

PPA status. 
v03-022 TCM0013 Trudy C. Matthews 23-Feb-1983 


Check VMB version for version which passes number of bad 
pages found during bootstrap memory scan in RPBSL_BADPGS. 


v03-021 KTA3038 Korver T. Altmann 11-Feb-1983 
Add copying of possible boot node name. 
v03-020 dbwT0073 David W. Th 28-Jan-1983 
+ swear code based on SENSV _LOADCLUSTR instead 
) 
v03-019 TCM0012 21-Jan-1983 
Add routine Label TEVELSCLRSBIA’ fo for Linking with XDELTA. 
v03-018 S$TJ3056 Steven T. Jeffre 21-Jan-1983 


Added code to laod SERAPAT and $ HKPRT loadable code 
nto pool, if necessary. 


v03-017 SRB0059 Steve Beckhardt 6-Jan-1983 
Added code to load cluster loadable code into pool, 
if necessary. 


v03-016 wMCc0002 Wayne Cardoza 30-Dec-1982 
Exclude system service vectors from PFN database. 


v03-015 TCMO011 rudy CC, Matthews 15-Dec-1982 
Correct AIH, Hn in GETCONLOC 790. 


v03-014 TCM0010 Trudy C. Matthews 10-Dec-1982 
Use CPUDATA cell to store 11/790 microcode rev level. 


ee 
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$yse0gr 4-SEP- Pa 1986 98: 06:42 (CBOOTS.SRCJSYSBOOT.MAR; 1 . 
00 9; v03-013 penties Jeffrey W. Hor 11-Nov-1982 
00 o 3 ix in compu utation” of SUPSGB_ SHLP1PT which occurs 
$98 13 ody § PSC_SHLFPTE is greater than 127. 
: 3 v03-012 KTA3018 Kerbey T. Altmann 08-Nov-1982 
4 : ; Remove loading of INILOA: 
000 § 3 v03-011 TCMO009 Trudy C. Matthews 26-0c t-1982 
4 3 3 Add 11/790-sper ‘fic yaths through CPU-dependent code. 
0000 39 ; v03-010 LJK0168 Lawrence J. Kenah 2-Jun-1982 
0000 40 ; Move code that maps pageable exec so that pages containing 
0000 41 ; it are not included in PFN data base when system paging 
0000 8 3 is turned off (SYSPAGING = 0). 
0000 43; 
0000 see so 
0000 45 
0000 $78 $ é 
0000 47 ; Inciude files: 
0000 248 ; - 
0000 249 SARCDEF ; Define architectural flag bits 
0000 250 SBOODEF ; Define Boot Control Block Offsets 
0000 251 SBQODEF ; Define Boot gio offsets 
0000 $26 TODEF 3; Define Boot devices 
0000 25 SCXBDEF 3; Define Complex Chained Buffer 
0000 254 SOPTDEF : Define Driver Prologue Definitions 
0000 255 DYNDEF ; Define dynamic pool codes 
0000 256 SFH2DEF ; Define level 2 file header offsets 
0000 4257 SIHDDEF ; Define jmage Header offsets 
0000 258 $10750DEF ; Define 11/750 1/0 space 
0000 259 SIODEF :; Define 1/0 function code values 
0000 260 SIRPDEF 3; Define 1/0 request packet offsets 
0000 261 SNDTDEF ; Define nexus device type codes 
0000 262 SPHODEF : Define process header offsets 
0000 263 SPRDEF ; Define eresess register numbers 
0000 264 SPRMDEF : Define SYSGEN parameter offsets 
0000 265 $SPR780DEF ; Define 11/780 processor registers 
0000 266 SPSLDEF ; Define program status longword fields 
0000 267 TEDEF ; Define page table entry fields 
0000 268 SRPBDEF 3; Define restart parameter block offsets 
0000 269 SSECDEF : Define erecess 34 section block 
0000 270 STPADE ; Define TPARSE offsets 
0000 271 SVADEF : Define fields in virtual address 
0000 i SVMBARGDEF ; Define VMB argument List offsets 
0000 ? SWCBDEF ; Detine Window Control Block offsets 
0000 74 SWSLDEF ; Define Working Set Lis entry 
0000 75 sane 
00000001 0000 76 DEBUG=1 seen 
0000 77 pee 
0000 78 
0000 79 ; 
0000 80 ; Macros: 
0000 1% 
44 $ MACRO ERROR,STR : : 
000 SBW ERROUT 3; Output error string 
a4 4 ASCIZ \"STR*\ : 
0000 5 ENDM ERROR : 


—— OI 
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acro V04-00 Page 6 
v02-000 7 C)SYSBOOT .MAR; 1 nae, | 
000 § 
4 -MACRO MSG,STR ; 
00 8 BSBW =: BOOS FACMSG : Output message 
8 9 eASCIZ \SSTR'N\ $ 
000 90 .ENDM MSG 3 
44 91 
000 35 3 
0000 93 ; Equated Symbols 
0000 598 : 
OOOOOFFC 0000 96 R2_R11 = *M<R2,R3,R4,R5,R6,R7,R8, Rd. m9 R11> : Mask for R2 to R11 
9000007 0000 297 1OSIZE = 127 : Do 1/0 in very large chunks 
0004000 0000 598 MAXPGS = 16384 t Sleme ter fk’ ol cheers 
00000001 0000 $35 DEBUG = 1 ; Assemble DEBUG code 
0000000D si 4 00 CR = 13 ; Character code for carriage return 
0000000A 0000 301 LF = 10 5 Character code for Line feed 
00000007 Bae8 308 BELL =7 3 ASCII bell 
00000018 0000 3b RP_DT = 24 ; Offset to drive type register for massbus 
00000003 0000 305 RTRV_PAG_CNT = 3 3; Retrieval Pree” page count 
0000 306 : 1 for SYS. 
0000 307 : 1 for SYSDUMP.DMP 
0000 308 : 1 for the other small files 
0000 309 
0000 310; ae 
4464 31) 3; 11/780 microcode revision levels. 
0000006D 0000 313 FPLA_VLOC_780 = *0155 : Offset to FPLA version number Location 
0000000C 0000 314 FPLA_780 = *x0C : FPLA version number 
0000006A 0000 315 PCS_VLOC_780 = *0152 ; Offset to PCS version number Location 
00000001 0000 316 PCS 780 = *x01 : PCS version number 
00000068 0000 317 WCSP_VLOC_780 = *0153 : Offset to WCS primary version Location 
0000000C 0000 318 WCSP_780 = “x0OC 3; WCS pri —¥f version number 
0000006C 0000 319 ucss.¥ LOC_780 = “0154 s Offset to WCS secondary version location 
00000012 0000 320 8-780 = “x12 ; WCS secondary version 
00000064 0000 391 CHOPT VLOC Ss “0144 : GH opt flag location 
0000 $55 
0000 323; ; ae 
9444 $$¢ 3 11/785 microcode revision levels. 
00000017 0000 326 $16_785 = 23 ; SID bit that differentiates an 11/785 
44 $56 : from an 11/780. 
0000006A 6008 $3 ots $-¥ 0C_785 = *0152 ; Offset to PCS version number 
000000 - 000 0 5 = *x04 : PCS version number 
00000066 0000 31 mayen ~¥E0C_785 = *0153 : Offset to PCS/WCS match version number. 
00000004 0000 $35 MTCH_785 = “x04 ; PCS/WCS match version number. 
0000006C 0000 33 UCSP_VLOC_785 = *0154 ; Offset to WCS primary version number. 
00000001 0000 $3¢ WCSP_785 = “x01 3; wWCcs er taery version number. 
0000006D 4 35 wCSS_VLOC_785 = “0155 ; Offset to WCS secondary version number. 
00000000 Ba6 338 wCSS_785 = *x00 ; WCS secondary version number. 
$000 3s : ne 
000 9 ; 11/750 revision levels. 
600 8a1 
00000000 0000 42 HWREV_750-0 : Minimum req'd hardware ECO level 
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_vo4=000 , 7 orSEp= 1984 29:06:42 BOOTS SReTSYSBOOT MAR: 1 et! © 
0000003E O08 re MICREV_750=62 3 Minimum req'd microcode rev level 
909 45 ; 
| 44 #8 ; 11/730 revision levels. 
| 000000 g 909 48 HWREV 73050 ; Minimum req'd hardware ECO Level 
000000 44 3 MICREV_730=51 ; Minimum req'd microcode rev level 
000 S51: 
3000 26 ; 11/790 revision levels. 
494404 boo 54 MICREV_REQ_790 = “x12 ; Code to request ucode rev level 
0000000 444 2? MICREV_790=0 3; Minimum req'd microcode rev level 
a4 Sf 3 
444 328 3 MicroVAX I revision levels. 
00000004 0000 369 MICREV_UV1 = “x04 3 Minimum req'd microcode rev level 
0000 61 ; Note: REV 5 is required to use 
0000 6¢ ; the 19°’ QVSS as console terminal. 
0000 6 
0000 64 ; : ? é 
444 $02 3; Offsets into Statistics Blocks kept for each file that is looked up 
0000 367 SOFFSET 0,POSITIVE,<- 
0000 368 STAT_L_VBN,= ; Starting VBN (after header) 
0000 369 STAT-L_BYTECNT, = : Size in bytes of image 
0000 370 STAT _L_SYSVA,= ; Base relative adr of pool adr 
0000 371 STAT_L_NAME ,= ; Base relative adr of ASCIC file name 
0000 36 STAT_L_MAP,=- ; Address of virtual to logical map 
0000 37 STAT-L-VBNCADR, = : But Adr containing VEN 2 
0000 374 <STAT_C_SIZE,0> - ; Size of STAT bloc 
0000 375 > 
0000 STAT_L_VBN: 
0004 STAT_L-BYTECNT: 
0008 STAT_L_SYSVA: 
000C STAT_L_NAME 
0010 STAT_L_MAP: 
0014 STAT_L_VBN2ADR 
0018 STAT~C_SIZE: 
0000 376; 
0000 77 ; Own Storage: 
0000 78 ; 
00009098 79 -PSECT __299B00T , PAGE 
000 80 BOOTHIGH: 
00000000 81 -PSECT $$$$00B00T,LONG 


———__—__—-- ee ee _ 


000 


The PFN bitmap passed in by VMB describes all the memory that 
has been tested and proven usable. Some of that eonery is actively in 
use and must not be allocated and overwritten by this SYSBOOT code. 
For example the portion of memory in which this code is currently 
running has not been marked as ‘“in use."' Allocation of poner 
is done from high PFN to low. It is expected that we will not get 
to the pages we are running in, and thus paving them appear usable 
means tha they don't have to be set usable before transferring 
control to INIT. 

There are 3 other copions of memory that have the same attribute. 
The first is the FILSOPENFILE cache. it memory allocation overlaps 
this cache, it will automatically be disabled. The second region | 

is the combination Cl microcode and page table. If memory allocation 
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_ 04-000 Secondary Bootstrap Rain Rout ine 44-SEP-1984 aU EE BOOTS. SRC SeSbOOT HAR: 1 — 
| i ; -SBTTL Secondary Bootstrap Main Routine 
0 5; 
| 3 § : Functional Description: 
0 8 : Calling Sequence: 
| $8 33 ; InP . EXESSYSBOOT 
000 391 : Input Parameters: 
0000 35 3 R10 = Base address of secondary bootstrap 
0000 93 ; R11 = Pointer to Restart Parameter Block 
000 94; AP = Argument List from VMB (Version § or later) 
000 95; SP = Stack pointer 
444 38 : PRS$_SCBB = System Control Block Base (SCB) 
444 38 ; Memory layout at start of secondary bootstrap: 
0000 400 ; tere nnnnn nnn nnn enna nnn nnn n nnn n n-ne - === :BA 
0000 401 ; ‘ Sees 
44 3 ; } Restart Parameter Block (RPB) ' 
9000 404 ; teeceennennnnnnnnennnennneeneenneesnnennne + :BASE+*X200 
0000 406 ; : orenary Bootstrap Code : 
4 407 ; (up to the end of drivers only) 
9000 : teecenaccnecnnnnnnnnnceneerecnncencennenne + :PRS_SCBB 
9000 3 System Control Block 
909 : ‘ ween e nee --------------------------------- $ : PFNMAP 
9009 ; Small PFN Bitmap 
0000 : teeeneenn neo 22 +--+ ---------------- === + :PFNMAP+X (X=*X200/400/600 
0000 3 ' ‘ or 800 as determ by VMB) 
0000 ; : Boor stres Stack ! 
0000 ; : (3 pages) ' 
44 ; Pe ee ee oo 
0000 ; ; Secondary Bootstrap Code 
9000 ; terre nee nen nn nnnn nnn nnn nee e-------------- + 


DOONAN EW OO OONOUE WIN ( O OONO UE WWN 0 00 


WWII AAI AIA AI IPO ROPONIPONUPNN 2 = OOO 


Oo 
So 
So 
So 
PY ot ot ot ot ot ot ot ot at a ar ae een Neeeeee 


Soooooooooooo 
CoOoOQoQooooooooo 
SOoCoooooooooo 


SOOO OOOCOooOooO 


23A4'CF 5B 
5811 

58 0200 C8 
56 1DF1°CF 
78 = 56 

58 =O1FF A 
00000000 'EF 
00000000'EF 
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50 E 
0000°CF 0 
50 —«E8 BF 
10 

08 50 
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FF 8F 50 
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20$: MOVB RO,W*EXESGB_CPUTYPE : Save CPU TYPE in SYSPARAM 


o 
oO 
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overlaps this area, a fatal error halt is taken, as the infomation 
contained therein is essential to system operation. The third region 
is the large PFN bi tnee. This cegton is ~ created for memories 
in excess of 8mb, and it is positioned at 2md. It is assumed that 
none of the allocation logic will get down to this point for such 
a large memory, and thus this is not a eg : 

There are oints at which SYSBOOT is interested in regions 
which are in use, but marked allocatable. The first point 
is when SYSBOOT artificially Limits the size of memory to the 
physical page count SYSGEN parameter (near label HAVEPRM). 

The second place is when SYSBOOT is trying to allocate a 
contiguous run of pages for the SPT (near label ALLOCSPT). 

The final place is in the routine ALLOCPFN which allocates 


a PFN. 
Output Parameters: 


ssencetsiigat” “te ; Secondary bootstrap start address 


R11,W*BOOSGL_RPBBASE ; Save base of RPB 


Get pointer to SCB used by Anema | bootstrap and fill witn pointers to 
exception handlers for secondary bootstrap. 


MFPR #PRS_ SCBB,R8 


Address of VMB's SCB 
MOVAL *X200(R8),R8 


Fill SCB back to front 


MOVAL W*BOOT_FAULT+1,R6 ; Unexpected fault handler vector 
10S: MOVL 27 (RB) ; Store a vector 
BITW #*X1FF RS ; Check for page boundary 
BNEQ 10$ ; Need another vector 
MOVAB VAXSEMULATE,*XC8(R8) ; Set emulation vector contents 
MOVAB VAXSEMULATE_FPD,*XCC(R8) ; Set FPD emulation vector contents 
MOVAB  W“UNEXP_MCHR,4(R8) : Machine checks are not expected 
3; Get CPU type and check if valid. 
CHK_CPU_TYPE: ; Get and check CPU type 
MFPR #PR$_SID,RO ; Rea 
MOVL RO,W™EXESGB_CPUDATA ; Store SID in SYSPARAM data field 
ASHL #-PRSV_SID_TYPE,RO,RO ; Right justify type. 
BEQL $ ; Branch if type=0 (illegal) 
CMPB RO, #PR$_SID_TYPMAX 3; Type exceeds maximum? 
BLEQU 208 :; Branch if not (legal) 
*aan 
;*eeThe following 4 instructions are present to allow 


O's with uninitialized sid’s to run. 


ozonm co-- 
xz = 

vo 

wo 


RO, #-1 3; CPU typgest? 
NEQ 108 ; branch if not 
NEGB RO,RO ; if so, set CPU type to 11/780 
B 206 3 and continue 
10$: MSG <-F-Unknown processor> 
HALT ; teeeefFatal Erroretttt 
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23A8'CF 50 90 71 + 497 MOVB RO,W*CPUTYPE ; Save it in a safe place too 
ee 
0076 500 ; Check for alternate console terminal and if necessary fix up displacements 
a076 2 : for CONSGETEMAR and CONSPUTCHAR in CONIO. 
076 503 ° CPUDISP <<780,40$>,- : *Dispatch on CPU type 
0076 504 £780. 408>.- Pathe ” 
0076 505 <730,40$>,- 
0076 506 <790,40$>,- 
0076 507 <UV1,30$>,- 
OR ee 208 <785 ,40$>>,- 
0076 209 ENVIRON=VMB 
24 20 AB «2 06~—SCEO =s«éO00C1 511 30$: BBS #6,RPBS$L_BOOTR1(R11) aos: reneh if QVSS is NOT the console terminal 
FFFD'S8F BO O00C6 21¢ MOVW #<QVSS$IRPUT-CONSGETCHAR- >,-:calcviate displacment 
00000001 ‘EF OOCA 51 CONSGETCHAR+1 ;Fix up the BRW instruction in CONSGETCHAR 
FFFD°8F BO OOCF 514 MOVW #<QVSSSOUTPUT-CONSPUTCHAR-3>,-;calculate displacment 
0000001 ‘EF 0003 515 CONSPUTCHAR+1 sFix up the BRW instruction in CONSPUTCHAR 
2320'cCF 5357 8F BO OODB 516 MOVW #*A/WS/,W°MODEL_UV1 ; Use SYSLOAWS1.EXE 
00000000 ‘EF FFFFFF9OO'EF DE BROF 21% MOVAL QVSSSKEY-112,QVSSSKEYTABLE; INITIALIZE THE KEYBOARD TRANSLATION TABL 
OOEA 519 40S: 
QOOEA 520; 
QOEA 521 ; If debug code is included, connect Gybugper to BPT and TBIT exception 
BOE 256 3; vectors, then execute a BPT instruction to give control to the debugger. 
OOEA 524 IF OF ,DEBUG : 
2C AB QOOO0O0000"EF 9E ODEA 525 MOVAB XDELBPT,*X2C(R8) : Set SPT exception vector to debugger 
28 AB OQOOO0O0000'EF 9E OOF2 526 MOVAB XDELTBIT,*X28(R8) ; and TBIT vector also 
OOOOO0O000'EF O7'AF 9E OOFA 527 MOVAB B*“INISBRK,XDELIBRK ; Make correct break address in brk table 
01 30 aB OCOOS;tsé€é‘* 0108 28 a ite BBC #RPBSV_BOOBPT,,RPBSL_BOOTRS(R11),NOBRK ; Check for bootstrap BPT 
03 0107 $5 BPT ; Breakpoint initially, changed to NOP 
0108 531 NOBRK: 3: No bootstrap break point 
S108 833 _— ' 
2198'CF QOOO0000'EF DE 0108 534 MOVAL L“BOOTHIGH,W*BOOSGL_FREEMEM ; Save pointer to free memory 
3A0'CF SA DO 0111 232 MOVL R10,W*SYSBOOT BASE ; Save base address of this code 
23cc'cF 44 AB 03 78 0116 536 ASHL  #3,RPBSQ_PFNMAP(R11),W°MEM_HI PFN ; Record highest PFN 
011D © 537 ; Tf UMB didn't pass it in. 
2308'CF 44 AB 7D 011 238 MOVQ RPBSQ_PFNMAP(R11),W°*SMALL_PFNMAP ; Save descriptor for backward 
4 44 : compatible (max 8mb) PFN bitmap 
1 He ; Save VMB version number so that various code paths can check it 
3 246 ; A zero in VMB_VERSION means that we were started by the release 1 VMB 
50 34 AB 00 0O1 544 MOVL RPBSL_IOVEC(R11) ,RC ; Address of 1/0 vectors 
10 AO AD 01 545 XORW3 BQOSW~VERSION(ROS ,- 
51 12 a0 12A 346 BQOSWVERCHECK(ROS.R1 =; If we have a version #, the 
51 86 12D 4 INCW R1 3; version and its complement are there 
06 12F $8 BNEQ BOOTNDT_ TST : Branch if release 1 V 
10 AO 3 =63C «(0131 4 MOVZ2WL BQ0$W_VERSION(RO),- : 
239C'CF ! ; 29 W*VMB_VERSION ; Save the VMB version number 
: 4 234 z Determine if VMB has already set up RPBSB_BOOTNDT field. 
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137 2 BOOTNDT_TST: 
06 239C°CF D1 0137 5 CMPL W*VMB_VERSION,#6 3; Did VMB set up the BOOTNDT field? 
1S 13¢ 28 BGEQ : Version 6 or later <= yes. 
51. 20 AB 1 3 MOVL RPBSL_BOOTR1(R11),R1 ; Get index to boot adapter. 
Q0A1 CB 0090 (B41 14 58 MOVZBW RPBSB-CONFREG(RITSCRIJ,-; Get boot ogepter 8 nexus device 
146A 59 RPBSW_BOOTNDT (R11) 3; type from RPBSB_CONFREG array. 
0B 11 O146A 60 BRB END_BOOTNDT_TS ; 
OC 239C°CF D1 O14C 61 108: CMPL W*VAB_VERSION, 412 ; Did VMB init the high byte of 
046 18 0151 6¢ BGEQ END_BOOTNDT 3 W_BOOTNDT properly? br if yes. 
OOA2 CB (94 133 6 CLRB RPBSW_BOOTNDT+1(R11) :; Zero the high byte. 
q 64 END_BOOTNDT_TST: 
0137 ¢ ; Determine if VMB has passed in an argument List in AP 
0S 239C°CF 01 Bi2e 568 CMPL W*VMB_VERSION,#5 ; Is there an orgqument List in AP? 
0 18 015C 283 BGEQ 1$ : Yes, process i 
0089 8631 pit 4 BRW ADD_CACHE ; Branch if not 
0161 378 ; The argument count field of the argument List describes what 
Bier a7 ; is present in the argument List. 
04 AC 7D 0161 575 js: MOVQ VMBSQ_FILECACHE(AP).- ; No additional test 
2165'CF 0164 576 w*F IL$GQ : is needed for file cache 
6C 0S B61 0167 577 CMP #VMBSQ_PFNMAP/4, (AP) ; Are the PFNMAP, LO and HI 
016A 578 ; PFN arguments present? 
49 14 Q16A 579 BGTR 5$ 3; Branch if not 
14 AC 7D O016C 580 mova VMBS$Q_PFNMAP(AP) , = ; Yes, update RPB : 
44 AB O16F 581 RPBSQ-PFNMAP(R115 :_ descriptor for PFN bitmap 
0171 286 ASSUME VMBSL_HI_PFN EQ VMBSL_LO_PFN+4 
Oc AC 7D O171=«=5 MOVQ  §VMBSL"LO"PFN(AP) ,- 
23C8'CF 0174 584 wen PFN : Record the low and hi PFN's 
6C 0B 61 0177 585 CMPW #vmB$C_FCAGS/4, (AP) ; Are the UCODE thru FLAGS args present? 
39 14 O17A 586 BGTR : Branch if not 
1c AC 7D O17C 8 587 mMOva VMB$Q_UCODE (AP) ,- 3; Yes, move the descriptor 
23E0°CF O17F 588 w*uCco5 
24 AC DO 0182 589 MOVL VMBSB_SYSTEMID(AP) ,- : and the system id 
00000000‘ EF 0185 590 BOO$SGB_SYSTEMID 
28 AC BO b1RA 591 MOVW VMBSB_SYSTEMID+4 (AP) ,- 
00000004 ‘EF 018D 238 BOOSGB_SYSTEMID+4 
2c AC 00 b138 59 MOVL VMBSL_FLAGS (AP) ,- 
23€8'CF 019 594 W*VMB_FLAGS : and the flags 
6c OC 91 0198 595 CMPB #VMBSC_CI_HIPFN/4,(AP) ; Is the CI_HIPFN arg present? 
18 146 QO198 596 BGTR 5$ ; Branch if not 
30 AC dO 19D ra d4 MOVL VMBSL_CI_HIPFN(AP) ,=- 
23EC CF is 98 w°cl Al : Yes, copy it 
6C OD 91 OIA 599 CMPB #VMBSQ_RODENAME/4,(AP) ; Is the NODENAME arg present? 
OD 14 1A6 =. 600 BGTR : Branch if not 
34 AC D5 giAe 601 TSTL VMBSQ_NODENAME (AP) ; But is it null? 
08 13 O1AB one BEQL : Yes, don’t copy 
34 AC 7D QO1AD 60 MOVQ VMB$Q_NODENAME (AP) ,- 
00000000’ EF 180 604 BOOSGB_NODENAME ; No, copy it 
1Bs 606 > 
b1B3 $09 ; Get the top level system directory name (if present) out of the name 
3182 one 3; of the secondary bootstrap stored by VMB in the RPB. 
57 68 AB 9E 0185 610 MOVAB RPBST_FILE(R11),R7 ; Address of bootstrap name 
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56 7 QA 0189 MOVZBL (R7)+ : = size, R7 = adr of strin 
67 56 5D HH 3A LOcc #*A/ we 86. (R7) : and the directory portion . 
ye BNEQ 10$ 3 of the name string 
67 56 —E 3A LOCC #*A/>/,R6, (R7) 3 Alternate syntax? 
4 13 BEQL END_L odxuP ; Branch if no directory beeen 
7 0g 10$: INCL 7: 3; Step over fhe open bra 
51 7 § SUBL R7,R1 3; Count in directory strin 
67 51 2 3A LOCC a /,R1,(R7) : Any top Level directory?» 
19 13 BEQL ENO Looky KuP 3 Branch 
51 ef C SUBL R7,R 3; Size of too Lovet dir name 
09 > a CMPL ay ro 3; Size of none — 
: 1114 BGTR END_L ; Branch if n 
53 gy "ct 9E MOVAB U*FTLSGt. TOPSYS, R3 ; Location to. Store ASCIC string 
;. ft & MOVB : Store stri ng size 
63 67 51 2 MOVC3 R1,(R7), * (R3) ; And store the directory name 
03 «(11 BRE END_ LOOKUP 


: VMB version does not have the FILSOPENFILE cache 


POL SCOP EPP POLO PNEUMONIA OO 


ADD_CACHE: ; 
FE13" 30 _m me BOOSCACHE_INIT 3 Otherwise init our own cache 
50 44 AB 7D ¥ MOVQ RPBSO_PFNAAP(RI1) .RO ; Get descriptor for PFN bitmap 
5E 51 01 CMPL R1,SP 3; Is this the onan bitmap? 
0B 19 BLSS 10 : Branch if yes 
50 7140 9E MOVAB <-(R1)CROJ,R 3; Address of last byte inclusive 
23D4'CF 50 =F? 8F 78 ASHL #-9,R0,W*°P ST MAP -HI_PFN ; Save highest PFN 


; With the Latest version of VMB, essentially all the code is otrees 

; gone. This secondary bootstrap was read in over nearly all the VM 

3; code. So the yore sees, which used to afk some cate, over VMB's 
3 Cee, now gteply praces it at the end of SYSBOOT. Even with ol 

3 versions of VMB this still works since the sum of the 2 bootstraps 

; and their data still does not exceed 64kb. 
0 


VERLAY_VMB: 
ASSUME BOOSC_LENGTH83 EQ 0 sear ral number of long words 
OTL #9, #RTRV_PAG_ CNT+<<BOUSC. =LENE! -64+511>a-9>,R2 
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front of Boot fontrol Block is 


DDD D> DEDEDE DEDEDE DED DEDEDE DEDEDE DDD DDD DDI APA AAAAA AA AAA A AAA AAAAO 
DPD BS BS BB EB EWAN NIIIPIPONPIPONINININIEY 2 2 OOO OO 


SOOSSCOCOOOCOOSOOSOOCOCSCOSCOOOOCOSOCOOOCOOOOOOOCOOOOOOOOOOCOCOCOoOO 


RO LOQCOCCOD VIMO WD VW NN at a 


1 : eae than 64 bytes add a page 
53 2198°CF DO 020 § MOVL W*BOOSGL_FREEMEM,R3 : Place BOOTCB and. retrieval pointers 
0 3 at the end of SYSBOOT 
560 53 2g C1 0 4 ADDLS R2.R3,R6 3; Note where next free page is 
23c4'CF 53 DO 020 5 MOVL R3,WBOOTCB ; Address of boot control block 
53 28 A3_ ODE 1 6 MOVAL B00sC Lee ru ioe) a ; First address in rtrv buffer 
52 OD Ag 9E 021 7 MOVAB ~BOOST_L THtReS, Re ; Size of rtrv buffer 
23B4°CF 5 7D 021 8 mMOva R2,W* RTRG NOUF ; Set retrieval Cubter descriptor 
$3 0 ; Allocate space to keep the first block beyond the image header for 
$$ 61 ; each of the drivers and loadable code. ey must be read in to find 
2 666 3 the size of the driver. This avoids reading them a second time. 
Ss f° 8. = ; 664 * ROTL #9, FR a Ae nase _CNT#+1>,R5 ; No. of bytes needed 
23BC°CF 55 7D 665 mova R5,W°VBN DSC~ : Save descriptor of buffer space 
2198'CF 56 55 (C1 § 666 ADDL3 R5.R6, BNSOneGc” FREEMEM ; Note where next free page is 
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7 668 FRRRAAAAER AAA AAA AAA AAAAAAEAEAAAAAAAAARAAERAAERAAAAAAAERAAAAERAAAERAAATE TEES 
. 66) * DEALLOCATE ANY PAGES SPECIFIED BY BAD PAGE FILE 
0 F $7) s etenegcecoeneconcsesenoneqonscennencsneanteqenseosnenecnqnorsneeneosscesonte 
O22F 6 
8 F ore CHKVERSION: 3 Check for minimum FPLA/WCS/PCS version 
8 : ore -ENABL LSB 
O22F 676 CPUDISP <<7 88 - CHEVERS ~190> = 3 *Dispatch on CPU type* 
O22F 677 <750,CHKVERS_750>,- ; 
O22F 678 <730,CHKVERS_730>,- 
8 F 679 <790, CHKVERS_790>,- 
oF 680 <UV1, CHKVERS_UV1>,= 
O22F 681 <785, CHKVERS_785>>,- 
022F ors ENVIRON=VMB 
027A 68 
027A 684 CHKVERS_750: : For 11/750, check SID 
52 00 9A O27A~ 685 MOVZBL #HWREV_750, R2 3 R2 <- hardware ECO level 
53 3E) «9A «(027D) Ss 6 B86 MOVZBL #MICREQ_756, R3 : R3 <= microcode version 
06 11 44 687 BRB CHEER STD 
0282 688 
028 689 CHKVERS_730: ; For 11/730, check SID 
38 00 9A 028 690 MOVZBL #HWREV_730,R : R2 <= hardware ECO level 
53 33) «9A «(0285691 MOVZBL #MICREV_ 736° : R3 <= microcode version 
0288 636 CHECK_SID: 
51 3€ OB 0288 69 #PRS$_SID,R1 : Get SID 
52. 51 91 0288 694 CMPB R1, R2 ; Current 6cO Level high enough? 
OD iF O28E 69 10$ : Branch if not 
0290 696 CHKVERS_UCODE 
51 51 *8 8F 78 0290 69 ASHL #-8,R1,R1 ; Position microcode version 
53 51 91 0295 698 CMPB 1, R3 ; Current microcode version high enough? 
03 1F 0298 699 BLSSU 10 : Branch if not 
0147 31 O29A 700 BRW CHKVERS_END Else versions ok 
029D 701 10$: MSG <-W-ECO or microcode version less than minimum required for VMS.> 
0101 31 O2EO 70 BRW BOO_HALT1 ; Allow continue command to override 
02E3 70 .DSABL LSB” 
02E3 704 g 
OSes 705 CHKVERS_790: 3: For 11/790: 
51 12 00 O2E3 706 MOVL #MICREV_REQ_790,R1 ; Request microcode revision level 
5 02 00 O2E6 707 MOVL # 3; Number of bytes of data = 2 
53 23AC'CF 9E O2E9 708 MOVAB W*CPUDATA,R3 ; Address of buffer to receive data. 
1A064 30 O2EE 709 BSBW GETCONLOC_790 ; Read version from console memory. 
00 23AC°CF 81 O2F1 710 CMPW SO CPUDATAT WMICREV_790 ; Current microcode version ok? 
03 =F Ost g 711 BLSSU 10s : Branch if we 
OOE9 31 O2F8 ay BRW CHKVERS_END Else version o 
O§ce 713 10$: MSG c-u-RicFocode version Less than rad ally required for VMS> 
OOAB «031 «203360 714 BRW BOO_HALT1 ; Branch to halt 
0339 715 
0339 cre CHKVERS_UV1: 
51 3€ 0339 71 MFPR #PRS$_SIDB,R1 : Get SID. : 
535 04 9A O33C 718 MOVZBL #MICREV_UV1,R3 ; R3 <= microcode version 
FF4E b3z5 at, BRW CHKVERS_UCODE ; Join common code. 
034 721 CHKVERS_785: 
55 1CEC'CFE 9E 8 4 7 § MOVAB Ae ay 785,R5 : Get address of 785 version vector. 
1CFS'CR DF 0347 7 PUSHAL W*VER SNUM M 785+ : Save addr of required 785 values 
09 19 #0348 724 BRB CHK_780_785 ; Join common code. 
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40 725 
4D 726 CHKVERS_780: : For 11/780, continue with check 
55 ICE3°CF 9E 4D 7 : “MOVAB = W*“VERSVECT_780,R5 ; Get address of 780 version vector 
1CEC*CF =F 8 2¢ 4 8 cna. 780 PUSHAL W*VERSNUM_780+4 ; Save addr of required 780 values 
56 gsAc“ce 9E 0356 730 “ — “MOVAB = W*CPUDATA,R6 ; Pointer to extra data 
1 85 A Q358 731 108: MOVZBL (R5)+,R1 ; Get offset to version code 
98 13° 035 7 ¢ BEQL 30$ 3; Zero if end of List 
195 30 O30 735 208: BSBW GE TCONLOC_780 3; Ask console for value 
86 29 90 036 734 MOVB RO, ( 3; Store it away 
F311 0366 g 5 BRB 10$ ; Loop 
55 BE 00 $3ee 7 5 30$: MOVL (SP)+,R5 ; Retrieve addr of end of required 
0368 £38 3; microcode rev levels 
75 76 B11 0368 739 CMPW -(R6) ,-(R5) ; Check all microcode versions against 
32. «6 1F «6036E)6=—- 740 BLSSU 3 minimum required 
75 76 91 Q370 741 CMPB =(R6) ,-(R5) 
20 iF QO375 74 BLSSU 
75 7 91 0375 74 CMPB ~(R6),-(R5) : 
28 «61F «60378 ) = 744 BLSSU 40$ :; Failure 
037A 745 ; 
O38 os : Now pick up FPA status, WCS size, and G&H option flags 
50 28 DB OQ37A 748 MFPR #PR780$_ACCS,RO ; Pick up FPA status 
50 50 f28F 9C 037d 749 OTL #-14 RO, ; Get bit in right position 
23B0'CF 50 02 89 0382 750 BISB3 #2,R0,WACPUDATA+4 : Set the flag 
51 64 BF 9A 0388 751 MOVZBL #GHOPT VLOC,R1 : Get offset to GH options flags 
1929 30 038C¢ 13e SBW_  GETCONCOC_780 ; Ask console for value 
50 50 01 89 O38F 75 BISB3 #1,R0,R ; Get the flag 
23B0'CF 50 88 0393 754 ISB RO,W*CPUDATA+4 ; Set the flag 
2D DOB 0398 755 MFPR #PRS . ; Get WCS size 
2381°CF 50 90 0398 756 MOVB RO,W™CPUDATA+5 ; Transfer to storage 
42. «11 Baa0 ete BRB CHKVERS_END 3 ALL okay 
O3A2 759 40$: MSG <-W-FPLA,PCS or WCS version Less than minimum required for VMS.> 
O3E4 760 BOO_HALT1: 3 
O3E4 761; 
O3ee toe : Halt removed to leave warning message only. 
Osee £66 CHKVERS_END: : *End of CPU-dependent code* 
QSE4 766 GETCURRENT: ; Read current parameter values 
52 23FO°CF 9E O3E4 767 MOVAB W*SYS_STAT,R2 ; Address of SYSTEM statistics block 
1198 30 O3E9 768 5$: BSBW HAGE OPEN ; Locate SYS.EXE 
31 50 ~=€E8 paee 4 BLBS RO,15$ :; Branch if successful 
Baer 771 ; If we were looking for SYS.EXE in SYSO.DIR, then try to boot from F 
iH ure ; SYSEXE.DIR in the MFD for compatibility with Release 2 format system disks 
216D°CF 95 baer 774 TSTB W*FIL$GT_TOPSYS ; Try this second lookup once only 
13 bare 775 BEQL 10$ ; Branch if no TOPSYS in use 
216D"CF 94 O3F 776 CLRB W*FILSGT_TOPSYS ; Disable TOPSYS 
2171°CEF 30 «(91 bere 777 CMPB #°A/0/ ,W*FILSGT_TOPSYS+4 ; Trying to boot from CSYSO.SYSEXE]? 
—E9 13 1A; ore BEQL ;_Yes, try again from CSYSEXEJ 
040 779 108: MSG <-F-Unable to locate SYS.EXE> 
00 ohh reo HALT ; *eeee Fatal Error teete 
53 01 DO 0420 781 15$: MOVL #1,R3 ; Virtual block 1 is image header 
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54 400'CF OD 4 78 MOVL W*SYS_STAT+STAT_L_MAP,R4 ; Virtual to Logical block ma 
56 2198" cr oO 4 3 7 MOVL W*BOOSGL_FREEMEM,R6 ; Set buffer address ~ 
59 1 92 9C 0420 784 ROTL #981, ; Read only header 
1459 30 0431 785 BSBW READ_VIRTUAL ; Read image header 
03 50 fe 8 4 £e6 BLBS . 3; Branch if successful 
ort’ 1 0437 7 BRW READ_SYS_ERR : Error reading SYS.EXE - fatal 
53 6 00 8 A 788 50$: MOVL ; Set base address 
52. 23F4'CF §=617) «9C 4 p 789 ROTL #<$2=9>,W*SYS_STAT+STAT_L_BYTECNT,R2 ; No. of pages in file 
FBBA' 30 0445 £90 BSBW  BOOSIMAGE_ATT :"Get image attributes 
0446 £6 3; R1 = count of image header blocks 
0446 795 ; R2 = last VBN in image = excluding symbol table and patch text 
bees ree ; R4 = preserved = virtual to logical map 
53 51 OF C1 0446 796 ADDL3 = #1,R1,R3 3; Starting VBN of image beyond hdr 
23F0'CF 53 DO 044A 797 MOVL R3,W*SYS_STAT+STAT_L_VBN ; Save in stat block 
52 51 C2 O44F 798 SUBL R1,R2 :; Blocks in image excluding image header 
bees 799 : Syabol table, and patch text 
23F 4° CF 52 09 78 0452 800 ASHL  4#9,R2,W°SYS STAT+STAT_L_BYTECNT ; Save byte count of image file 
SA 23C4"CF DO 0458 801 MOVL_ w*B00TCB, ; Address of boot control block 
14 AA 54 «5A C3 (045D 802 SUBL3 R10,R4,BOOSL_SYS_MAP(R10) ; Save virtual to logical map 
OC AA 53 00 0462 80 MOVL R3,BO00$L_SYS-VBNTR10) _; Save starting VBN of SYS 
10 AA 52 DO 0466 804 MOVL R2,BO0$L_SYS_SIZE(R10) ; and its size from that VBN 
hey 4 3; to the end of executable image 
046A 807 ; Add mas | § space to map for SYS.EXE to convert it into a Window Control Block in 
046A 808 ; INIT. If booting from the console, allow for a couple of extra pointers in case 
Rete 593 3 we read from another volume(s). 
56 23B4'°CF 7D 046A 811 MOVQ W*RTRV_BUF _DSC,R6 ; R6 = size, R7 = address of 
O46F 812 ; retrieval buffer 
50 64 FD 8F 78 O46F 813 ASHL #-3,(R4),RO : Number of retrieval pointers 
40 8F 66 AB 91 0474 814 CMPB RPB$B_DEVTYP(R11) ,#BTDS$K. CONSOLE ; Booting from the console? 
09 12 #0479 815 BNEQ 55$ 3 No P 
50 03 CO 0478 816 ADDL2 #3,R0 ; Allow a couple of extra pointers for a — 
047E 6817 3 _segmented read during standalone operatio 
2398'CF 50 01 C3 O47E 818 SUBL3 #1,RO0,W*CONEOF_MAX_PTR ; Store this count, adjusted for the dummy 
0484 819 3 rtrv pointer needed for each segment 
50 06 C4 begs est 55$: MULL #6,R0 : 6 bytes each for WCB 
0487 ase ; Note that SYS.EXE is smaller than 65K blocks and thus each retrieval 
0487 823 ; pointer must be less than 65K blocks. So 1 retrieval pointer cannot 
414 ase 3; result in more than one window control block pointer. 
50 30 CO $087 52 ADDL #WCBSW_P1_COUNT,RO : Size required for WCB 
51 64 04 C1 Q48A 827 ADDL3 #4, (R4T,RT ; Size taken up by map right now 
a on | ot] 828 SUBL R1,R0 ; Additional bytes needed to 
491 862 ; convert into a Window Control Block 
0c 15 0491 830 BLEQ 60$ ; Branch if already big po 
50 03 CO 0493 831 ADDL #3,R0 ; Round up to long word boundary 
50 03 CA 0496 o3¢ BICL #3,R0 3 
56 50 C2 0499 83 SUBL RO,R6 3; Reserve the additional space 
57 50 CO Q049C 834 ADDL RO,R? 3 
Bis H 08 
bor iH ; Make separate virtual to toatcat weps tor SYSPARAM and for the 
O49F 38 ; non-resident portion of BUGCHECK. This reduces the amount of 
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39 ; code needed in the system to deal with these portions of SYS.EXE 
: that are no longer required to be contiguous. 


ty i 


0 00 09 00 09 00 CO. 00 00 0D CD 09 00 00 CD CD OS C9. 09 CD CDC 


DADA PEE 
IM — SO OOONAUS WPI OC COON US Wr 


9 C0 Co Co 
AAO 
Anew 


©00000 0900 0c 2900 00 00 00 Cd C0 00 C0 OD Cd Cd Cd CD CO Cd CD OD GD OD CO OD CO 
OOO YO O00 00 0000 00 0009 09 09 SII SI SINISE SOO 


MEW OOO NOAUES WN (OOO NOUS WN OOon 
. 


ADDL 
MOVL 
SUBL3 
BSBw 


MOVQ 


#<MMGSA_SYSPARAM=*X89000000>8-9,R3 ; VBN of SYSPARAM 
51 8<<B008¢ SYSPARSZ+511>a-9>, RS : Number of blocks in A 2 pgp 
BOOSL _PARAM_MAP(R10) ; Offset to map for SYSPA 
Songs ETMA 3 Set virtual to logical ma rot 
3; SYSPARAM gorse of 3¥S. EXE 
W*SYS_STAT+STAT rath Get map for SYS again 
#<BUGSA PAGED-*R B0000009>a-B.n5" R3 ; j Sterging VBN of paged 
“SYS_STAT+STAT CK code 
SA <BOGSA. PAGE DENS BUGSA.. ineepesi sass RS 
locks of paged BUGCHECK code 
R10,R7 BOOSL _BUG _MAP(RIOS. ; Offset to map for BUGCHECK code 
BOO$sETMA : Set virtual to logical map for 
BUGCHECK portion of SYS.EXE 
R6,W*RTRV_BUF _DSC : Record space used in rtrv ptr buf 


; Read the sysgen parameters from VAXVMSSYS.PAR 


ies tie. 


10$: 


CALLS 


#0,BOOSUSECUR ; Read the .PAR file 


i this is a conversational bootstrap, then prompt termina for command 


nput to specify a starting set of parameters and any modifications 


BBC 
CALLS 


MOVB 
MFPR 


NOCONVER: 
: Set ag code 


MOVL 
ASSUME 
C 


n the event tha 
there is no current parameter set, the defaults will be used anyway. 


a conversational boot was not selected and 


#RPBSV_CONV,RPBSL_BOOTR5(R11) ,NOCONVER 
5 Branch h if not conversational 
#0,W*BOOSGE TPARAM ; Prompt for parameters 


: Restore fields that could have been destroyed by a USE DEFAULT command. 


W*CPUTYPE ,W*EXESGB_CPUTYPE ; Restore CPU type to sys params 
#PR$_SID, W*EXESGB_ CPUDATA ; Restore SID to sys params 


boundary in SYSPARAM area with value assembled into SYSBOOT 
BOOSGL_P DCOD.W*MMGSGL_PGDCOD; 


Now open SYSDUMP.DMP and record its retrieval pointers in the 
boot control block. 


#1,BO0SL_DMP_VBN(R10) ; Set dump file starting VBN 
BOOSL_DMP_MAP EQ BOOS DMP _SIZE+4 


OSL DMP-SIZE(R1 ; Zero size and map in case no dump file 
W*SYSDUMP"STAT,R2 3 eer of SYSDUMP stat block 
WAL 9 FL. FID : o file id for page file 
S*#EXESV_PAGFILDMP 


W_PG 
W*EXESGW_ PGF +4 
ae _DEFFLAGS,10$ ; Assume dump is 

: not going to be in the page file 
W*RTRV_BUF _DSC,R4 Save old descriptor for Size check 
a#BOO$GT SYSDUMP,STAT wl _AAME(R2) Look up SYSDUMP.DMP 
IMAGE _OPEN ; Locate 8 ySDUMP_DMP 
RO,1 : Branch if not found 
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56 540 23B4'CF «=6C3-_«(0523)—s«89 SUBL3 W*RTRV_BUF_DSC,R4,R6 : Bytes used ‘or dump file 
Sooodsec Bre’ $6 St 8853S CMPL> RG, ° See if we uded teas than helf 
0 #<<RTRV_PAG_ CNT#512>-B00$C LENGTH>/2 
5D 0 19 0 BLSS 208 ; Ro problem 
23B4°CF 54 7D $ MOVQ R4,W*RTRV_BUF Forget about dump 
— 4 56 <-W-DMPFRG SYSDUMP. DMP is too fragmented to be used> 
OC A2 00002183" OF 3 GF 15$ MOVAB a@#BOOSGT PAGEFILE,STAT_L NAME (R2) : Didn’ t find SYSOUMP.DMP 
100A 3 77 BSBW OPEN ; kup PAGEFILE.SYS instead 
1€ 50 €9 7A BLBC 0$ eee if thi s failed too 
OOOO'CF 08 Al 00 057d MOVL  FHeSW_FID D_NUM(R1) ,W*EXESGW.. GFL _FID ; Save the file id 
0004'CF OC Al BO 0583 MOV - FHOSWTFID-RUN(R1) LWSEXESGW-PGFL-FID+4 : for the page file 
00 OVOO'CF 00° E2 0589 BBSS SA REXESV_P PAGF ILDMP,W*EX esec. SEFFLAGS "abs: Note dump file 
8F - is at the front’ of the page file 
04 A217 9C O58F 20$: ROTL #<32=9>,STAT_L_BYTECNT(R2),- ; Record size of file 
1C AA 93 BOOSL_DMP_SIZETR10) ; locks 
20 AA 10 A2 SA C3 95 SUBL3 Boo STAT_C > MAP(R2) ,BOOSL. DMP_MAP(R10) : Offset to SYSDUMP map 


rab sh sb sh ah ab ah ab ab dh ab aa dh ab ah ab ah dh eh dh eh ah a a eh a el 


| i 
5 839 
0 00 
0 901 
0 o0¢ 
0 90 
0 904 
0 905 
0 906 
9 907 
908 
0 909 
0 910 
0 911 
0 912 
0 913 
0598 914; 
0598 915 ; Now calculate the size of ee des pool needed for the bootstrap 
0598 916 ; system disk driver. This udes the BOOTCB (boot control block) 
oe aif 3 and any possible ucode fite needed. 

56 2384'CF 7D 0598 919 60S: MOVa W*RTRV_BUF _DSC,R6 ; Get size and adr of what remains 
0SA0 920 3; of the retrieval pointer buffer 
05SA0 921 ; R7 = end of BOOTC 

SO. 657060 O6§A CCS «COSA0 C92 SUBL3 R10,R7,R0 ; BOOTCB size 

08 AA 50 BO 05A4 923 MOVW RO,C00$W_S1ZE(R10) ; Save size in B00TCB 
6A 50 3C Q5A8 924 MOVZWL RO,BOOSL_CHECKSUM(R10) ; Save size to checksum for INIT 
0663 8F B80 OSAB 925 MOVW #<D NSC _BOOTCBA8!DYNSC_INIT>,- 
OA OSAF 926 BOOSB_TYPE(R10) ; Set type and subtype ; 
50 23€0'CF CO 05B1 927 ADDL2 wW*UCOBE_LEN,RO : Add in any possible ucode file size 
2424'°CF 50 38 AB C1 0586 928 ADDL3 RPBSL 1OVECSZ(R11),RO,- ; Save size with Boot Driver added 
058D 929 W*BOODRV_STA AT#STAT_L_BYTECN T 
05BD 930 : in Boot Driver statistics block 
87 7C O05B8D 931 CLRQ (R7)+ : Since allocation wiil be rounded 
87 7C OSBF 932 CLRQ (R7)+ ; up to 16 byte boundary, clean out 
05C1 933 ; any left over garbage 
56 10 C2 O05C1 934 SUBL #16,R6 ; and allocate an additional 16 bytes 
23B4'CF 56 7D B2ce i MOva R6,W*RTRV_BUF _DSC ; of retrieval buffer soace 
05C9 937 ; The boot device driver file will be opened and read to obtain 
05C9 938 ; the driver size. This will be passed to the EXEC initialization. 
B28 939 ; Determining the name of the boot driver file is done differently, 
Bete Bey 3 depending on the version of VMB being used. 
05¢9 aoe LOOKUPOR IVER: 
239C'CF D5 O05C9 94 TSTL W*VMB_VERSION ; Release 2 or later VMB? 
1F 613) «©05CD 0 (944G BEQL 2$ : Sranch if not 
50 DO OSCF 945 MOVL RPBSL_IOVEC(R11),RO Get address of 1/0 vectors 
54S sé 9E 0503 946 MOVAB @BQO$C_DRIVRNAME(RO)CRO].R4 ; Yes, get addr. of driver name List 
OA 239C°CF Di 0508 947 CAPL W*vMB_VERSION, #10 : Is" it version 10? 
19 Q5DD 948 BLSS 19$ skip this 
51 308040 9€ B20 949 MOVAB @BQO$L_DEVNAME<RO)CRO), ri * : "tes Feana tee boot device name 
OOOO0000'EF 61 He 5E4 = «950 MOVZWL (R1),L"BOOSGL_DEVNAME ; “to BOOPARAM block 
O009E 1 OSEB 951 198: BRW 208 
| OSEE 952 


i a 


oa- 
soy 
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EE 953; 
O3EE 954 ; The type of boot device will be determined and the proper driver file 
SEE 322 : will be Looked up and read to obtain the proper driver size. This will 
OSEE 9 $ : be passed to the exec initialization. If the type of boot 
| QSEE 957 ; device does not correspond to one of the standard disk devices, then 
Beee 958 ; the driver name will be set to UNKDRIVER.EXE and a fatal error message 
SEE 959 ; given if the driver file is not found. 
| OSEE 960 ; 
OSEE 961 2S: 
55 5C AB DO OSE 306 MOVL RPBSL_ADPPHY(R11),R5 ; Get physical address of bus adapter 
66 AB O91)SsOO5F 96 CMPB RPBSB DEVTYP(R11),- ; Booting from console block 
40 gf SF 964 $B TOSK_CONSOLE > storage device? 
F 12 OSF? 965 BNEQ 3; No 
54 2213'CF 9E& OSF9 966 MOVAB W*DDNAME,R4 : Yes, assume TUS8 
OSFE 967 CPUDISP <<780,4$>,- + 11/780 floppy 
OSFE 968 <7 § gOS? -= : 11/750 Tus 
OSFE 969 <750,20$>,- : 11/730 TUS8 
OSFE 970 <UV1,20$>,- 3; MicroVAX I should never get here 
OSFE 971 >,- : 
OSFE 4h ENVIRON=VMB : 
p63! of : This code path can’t be executed on 11/790 
54 2206'CF 9E€ 0631 975 4$: MOVAB W“DXNAME,R4 : Console RX01 driver name 
54 «11 tt 44 aag 20$ 
0638 978 5$: CASE RPBSB_DEVTYP(R11),<- ; Case on boot device type 
0638 979 10$,- 3; MASSBUS device 
0638 980 7 3 RKO6/7 
0638 981 8$,- ; 
0638 982 >, LIMIT=#BTDS$K_MB,TYPE=B 
38 O11 0643 983 BRB 12$ : Unknown device 
54 21F9"CF 9E 0645 985 8S: MOVAB W*DLNAME,R4 3; RLO2 driver name 
4 11 064A 986 BRB 208 : 
54 21DF°CF 9E 064C 987 9S: MOVAB W*DMNAME,R4 3; RKO6/7 driver name 
39 11 0651 988 BRB $ 3 . : 
55 0400 C5 9E 0653 989 10$: MOVAB “*X400(R5),R5 3; Compute address of device registers 
55 03 O07 64 AB FO 0658 990 INSV RPBSW_UNIT(R11),#7,#3,R5; For boot device 
50 18 AS DO OQ65E 991 MOVL RP_DTTRS) RO 3; Read device type number 
54 21D2°CF 9E 0662 992 MOVAB W“DBNAME, 3 Assume RPO4/RPOS/RP06 (DBDRIVER) 
12 50 91 0667 993 CMPB 2 : Is drive type = RP04/5/6 
20 «15 066A 8994 BLEQ ; Branch if yes 
50 14 91 066C 995 CMPB #°X14,R0 : Is device RM03? 
16 13 pose 99 BEQL 3; Yes 
50 16 91 0671 99 CMPB 0s #*X16, RO : 1S DEVICE = RM80? 
11 13 0674 998 BEQL 15$ : If EQL, Y 
50 17 91 0676 999 CMPB ss #*X17,,RO : 1S DEVICE = RMOS? 
0c 13 0679 1000 BEQL 15$ ; IF EQL, YES 
50 32 91 0678 1001 CMPB ss #*X22,,R0 : IS DEVICE = RPO7? 
7 13 0O67€E 1906 BEQL 15$ ; Yes . 
54 2220" Cr 5 $680 4 12$: _— W*UNKNAME ,R4 : Use driver for unknown devices 
54 21EC CF 9E eet 130) 15$: MOVAB W“*DRNAME,R4 ; Use DRDRIVER for RMO3/RPO7 : 
03 239C'CE 01 068C 1006 20$:  CMPL  W*VMB_VERSION,#3 : Did this VMB set up the MEMDSC in RPB? 
03 18 0691 Ht BGEQ 5$ : Branch if it did 
pg ep 30 0693 1008 BSBW ADD_RPB_MEMDSC ; PUT MEMDSC IN RPB 
2444'(CF 54 23A0°CF C3 0696 1009 258: SUBL3 W*SYSBOOT_BASE,R4,- ; Save base relative address 


eee SS eee 


e—___ 


| $YSBOOT 
V04=000 

07 239C'CF 

20 

50 34 AB 

54 6.20 AD 

08 

54 50 

265C'CE 54  23A0°CE 

09 2390'C 

0104 CB 

OD 239C'CE 

0108 CB 

50 _0000'CF 

56 -2304°CF40 

2301'CF 66 03 


04 


00 
04 0000'CF 
24D4°CF 


0000° CF 
2534'CF 


00° 
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69E 101 W“DSKDRV_STAT+STAT ot NAME 
01 69 1 CMPL W*°VMB_VERSION,#7 
19 Q6A 1 BLSS 0$ F 
DO O6A 1 MOVL RPBSL_IOVEC(R11) ,RO $ 
b 6A9 101 MOVL 1 “AUXDRNAME(RO),R4 ; 
1 6AD 1 BEQL 7$ 3 
3 peat 1 ADDL § 
C3 0682 101 SUBL UéyseooT BASE,R4,- 
06BA 101 W*PRTDRV USTAT#STAT. m _namé 
Q6BA 19 27$: 
Di O6BA CMPL W*VMB_VERSION, #9 § 
18 O6BF BGEQ : 
D4 06C1 CLRL RPBSL_BADPGS(R11) : 
06C5 2 : 
06C5 24 30$: 
D1 06C5 2 CMPL W*VMB_VERSION, #13 5 
18 O6CA 2 BGEQ : 
94 O6CC 2 CLRB RPBSB_CTRLLTR(R11) s 
0600 28 40$: 
06D0 ¢ $ 
06D0 ; Derive the name of the image containing 
et$4 ; 3; code. Image names supported thus far: 
06D0 33 3 SYSLOA780.EXE if CPU_TYPE has PR 
0600 34 ; SYSLOA75SO.EXE if CPUTTYPE has PR 
06D0 1035 ; SYSLOA730.EXE if CPUTTYPE has PR 
06D0 36; SYSLOA790.EXE if CPU_TYPE has PR 
06D0 Sf 3 SYSLOAUV1.EXE if CPU_TYPE has PR 
38 ; SYSLOAWS? .EXE if CPU, TYPE has PR 
06D0 39 ; 
0600 40 ; 
9A 0600 4 MOVZBL W*EXES$GB_CPUTYPE ,RO : 
DE 06D5 4 MOVAL W*MODEL _TABLE-4CR0], R6 : 
28 06DB : MOVC3 #3, (R6) 7 W°NAME XXX b 
4 
4 
4 
4 
4 


oO 

on 

o 

oO 
ee ee ee ee a ee ee ee ee ee a ek ee ek ee ee ae a ee ad a ad dd hd et 
COCO COCOOOOCOCOCOCOOCCOSOSCOOOOOCOCOOCOOCOCOCOCOC COCO OOOO OOOOOO OOOO OOOOoOOoOO 
AINE AR (OC OONA UVES WWID 0 OOD NAUE WN O OO NAME WIN @ O OD NAUE WN OOO NAULS WN O 


BREE 


06E1 
06E1 
06E1 
06E1 
06E1 ; 
06E1 LOOKUP_LOADABLE _CODE : 
EO 06€1 5 BBS 
06E3 105 
D4 O6E7 105 CLRL 
06EB 105 
06EB 105 
06EB 105 
06EB 105 
EO O6€B 1057 50S: BBS 
06ED 105 
D4 06F1 5 CLRL 
06F5 106 
06F5 106 
06F5 106 
EO O6F> 63 25$: BBS 
D4 06FB 106 CLRL 
O6FF 106 
O6FF 106 


$V -LOADERAPAT ° 
GNSGL ~LOADFLAGS, 20 
UERAPATCOA. aaa Tt _t NAME; 


S*#SGNSV teers’ = 
W*SGNSGL~LOADFLAG 

W°CHRPRICOA. CrATestat L _AAME ; 

3 Conditionally look up loadable SMTACCESS code (MTACCESS.EXE). 


S“#SGNSV_LOADMTACCESS ,W*SGNSGL -LOADFLAGS, 30$ ; 
W*MTACCESSLOA_STAT+ST 


: Conditionally look up toadabie SCS code (SCSLOA.EXE). 


S$ ,05$ 


AT_L_NAME™~; 


:37 VAX/VMS Macro v04-00 
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; of driver name 

Version : or sressars 

No, leave no 

Get address of 1/0 vectors : 
Get addr. of aux driver name List 
None, leave 

Get absolute address 

Save base relative address 

; of driver name 


Did VMB set up RPB BADPGS field? 
Yes, leave now 

Zero number of bad pages found in 
bootstrap memory scan. 


Did VMB set up RPB CTRLLTR field? 


Yes, leave now 
Zero controller letter field. 


loadabe CPU-dependent 


$_SID_TYP780. 

$_SID_TYP750. 

$_SID_TYP730. 

$_SID_TYP790. 

$_SID_TYPUV1. 

$"“SID_TYPUV1 and bit 6 in boot r1 


Get CPU type code 

Get addr of model List 

Copy model name into XXX 
field of SYSLOAXXX.EXE 


Conditionally look up loadable SERAPAT code (ERAPATLOA.EXE). 


Is SERAPAT load flag se 
if SO, branch around “4. CLRL 
Set for no lookup 


; Conditionally look up loadable SCHKPRT code (CHKPRTLOA.EXE). 


Is SCHKPRT Load flag set? 
if 80, branch around the CLRL 
Set for no lookup 


If SET branc 
Set for no Look up 
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| 

| Der 1067 ; Conditionally lookup loadable cluster code (CLUSTRLOA.EXE). 

| 01 OOOO'CF 91 FF $0$: CMPB W*CLUSGB_VAXCLUSTER,#1 ; Test VAXCLUSTER parameter 

13. 1A 0704 BGTRU 40% ; Load SCSLOA and CLUSTRLOA 

| 13 BEQLU 32$ : Branch if VAXCLUSTER = | 
24BC'CF D4 2s CLRL  W*CLSLOA_STAT+STAT_L_NAME ; Set for no CLUSTRLOA Lookup 

"ASSUME VMBS$V_LOAD_SCS EQ 0 
08 23E€8°CF E8 BLBS W*VMB- FLAGS ,40 > Look it up 
248C'CF D4 CLRL §W*SCSCOA_STAT*STAT_L_NAME ; Set for no SCSLOA Lookup 
24BC'CF D4 ian CLRL  W°CLSLOATSTAT+STAT-L_-NAME : Set for no CLUSTRLOA Lookup 
: Check for the presence of the TBCHK processor register. 


BBCC S*#EXESV_TBCHK,=- ; Clear it out befor we check 
aie 


0 
00 0000'CF 
8 438: MFPR 8 SC 


; Pick up .ocdress of SCcCB 


18 AB DD PUSHL 18TR8) 3; Save RESERVED OPERAND slot 
~~ MOVL SP,R7 ; Save stack 
18 AB 38'AF 9E MOVAB 8*44$,*x18(R8) ; Put in new handler 
3F 06 550.—s—s«éOA MTPR RO,#PR$_TBCHK ; Try to write it 
00° €2 BBSS  S*#EXESU_TBCHK,- 
02 0000'CF W*EXESGL_DEFFLAGS,44$ ; It worked so set the bit 
00. Osi BRB 44$ 
«ALIGN LONG ; Vectors must be on longword boundary 
= i 44$: MOVL R7,SP ; Restore stack 
18 A8 8EDO POPL “x18(R8) : Restore RESERVED OPERAND 


Check for the presence of each category of instructions that might 
have to be emulated: character strings decimal, EDITPC, CRC and the 
de pom pares data types. Set an indicator for any that must be 
emulated by software. 


WARNING: This code cannot be debugged with XDELTA, if serene instructions 
are being emulated because this testing replaces the emulation 
handlers temporarily! 


Se be De Se te i i i i te BD et te et i i tt i tb 


DTA BY & B&B WAIN AAAI NIAAA AAAI AI NAINA NWI AIRPOPIDD 2 OOO OO OOOO FO 


SRO SOO FA AD OOMVIOS OUT MD OOOOON AAA 
a tt td oh 9 I | AM QHODOOC OOOO OCOCOOCOCOOCOOCOCOCOCOCOOCCOCOOOOCOCOOoOo 


MoO) @ 3 BOO OODOO00000000H 090 GDG60 606060000909 09 09 INI NII NINN NININIOOS 
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ASSUME ARCSV_DCML_EMUL EQ <ARCSV_CHAR_EMUL + 1> 
ASSUME ARCSV_EDPC_EMUL EQ <ARCSV_DCML_EMUL + 1> 
ASSUME ARC$V_CRC_EMUL EQ <ARCSV_EDPC_EMUL + 1> 
ASSUME ARCSV_DFLT_EMU ARCSV_CRC"EMUL + 1> 
ASSUME ARCSV-FFLT-EMUL EQ <ARCSV-DFLT_EMUL + 1> 
ASSUME ARCSV_GFLT_EMUL EQ <ARCSV_FFLT_LEMUL + 1> 
, ASSUME ARCSVHFLT~EMUL EQ <ARCSV~GFLT~EMUL + 1> 
10 AB =D 07 PUSHL “X10(R8) ; Remember OPCDEC vector contents 
00c8 ce DD 07 PUSHL “XC8(R8) . Remember emulation vector contents 
OOCC C DD 07 PUSHL “XCC(R8) ;_ Remember FPD emulation vector conients 
OOFF 8F BB 07 PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7> ; Save volatile registers 
O000'CF D4 07 L_  W°EXESGL_ARCHFLAG : Clear all indicators initially 
19 A8 704°CF 9E 07 MOVAB el we Ths ; Put in new OPCDEC handler 
00cs C8 7EG'CR §=69E «(07 MOVAB waetee ant (R8) ; Put in new emulation handler 
OOcc C8 7D4°CF 9E 07 MOVAB W*45$,*xXCC(R8) ; Put in new FPD emulation handler | 
6 04 9A Q7 MOVZBL #ARCSV_CHAR_EMUL ,R6 : Bit indicator for character string ins 


SEE 


G 16 
| SYSBOOT - VMS Secondary Bootstrap Routine 16-SEP-1 11:37 ae Macro v04-00 Page 21 
| ¥04=000 Secondary Bootstrap Main Routine 46-SEP-19 7 98: 2:06:42 teoors sre SYSBOOT.MAR; 1 . (1) 
0769 1124 ; 
0769 1125 ; MATCHC was chosen as the tag ebay instruction to be executed 
$788 1 g: ; because it is the least likely character instruction to be implemented. 
00000001 0769 11 8 eMDELETE MATCHC 
57 O9°BF 9A 8788 1 8 MATCHC. hovz6e #MATCHC_INS_SZ,R7 3; Remember size of MATCHC instruction 
O7F2°CF OF O7F2°CF O01 39 QO76D 1131 MATCHC es »W°STRING,#1,W°STRING ; Execute a character string ins 
00000009 0776 11 é MATCHC_INS_SZ = . = MATCHC_INS- 
776 «11 
0776 1134 : 
8778 1135 : DIVP was chose as the sample decimal instruction to be executed 
bone 1 g: 3; because it is the least Likely decimal instruction to be implemented. 
6 0776 \138 INCL R6 : Bit indicator for decimal instruction 
00000001 0778 1139  MDELETE DIVP } ; 
57 OD'8F 0778 1140 MOVZBL #DIVP_INS_SZ,R7 ; Remember size of DIVP instruction 
077C 1141 DIVP_INS: 
O7F4°CF 1 27 O77C 1136 DIvP #1,W*DENOMINATOR,- 3; Execute a decimal instruction 
O7F3'CF 01 0781 114 #1 -W*NUMERATOR - 
O7FS'CF 01 0785 1144 #1,W*QUOTIENT 
0000000D 0789 1145 DIVP_INS_SZ =. - SIV VP_INS 
0789 1146 
0789 1147 : 
0789 1148 ; This EDITPC instruction does nothing but test if software emulation is 
B78 1133 3; needed for this instruction. 
56 D6 0789 1151 INCL 6 ; Bit indicator for EDITPC instruction 
00000001 0788 1126 gros Lete EDITP , 
57 OB'8F 9A O078B 115 OVZBL vEDITPC.. INS_SZ,R7 3 Remember size of EDITPC instruction 
4 4 1154 EDITPC_ INS 
O7F9°CF hilt APR 38 14 1155 EDITPC #1,W*NUMERATOR,W*PATTERN,W*QUOTIENT ; Execute an EDITPC instruction 
00000008 079A 1156 EDITPC_INS_SZ = . = EDITPC_INS 
O79A 1157 
O79A 1158; 
O79A 1159 : This CRC produces a garbage result but it tests if software emulation is 
454 1169 : needed for this instruction. 
56 D6 O79A 1106 TBL: INCL R6 3; Bit indicator for CRC instruction 
00000001 079C 116 -MDELETE CRC 
0 4 O79C 1164 : Set inicre to zero 
57 O8°8F 9A O79E 1165 MOVZBL #CRC_INS_SZ,R7 3; Remember size of CRC instruction 
O7AS 1166 CRC_INS: 
FS AF OB OQ7A2 1167 CRC ; Choose useless address for tbl address 
ras 1 FD Q7A5 1168 ROL in W*STRING ; Use same string as in MATCHC test 
00000008 O7AA 1169 CRC_INS_SZ = . = CRC_INS 
O7AA 1170 
O7AA 1171; 
O7AA 1178 ; This is a sample D floating point instruction. It was chosen because 
Br AA YS ; it is one of the simplest D instructions. 
56. D6 O7AA 1175 ° INCL 6 : Bit indicator for D floating point 
00000001 O7AC 1128 -MDELETE MOVD 5 
57 O3°8F 9A rae Vir MOVD_IN ysOV28t #MOVD_INS_SZ,R? ; Remember size of MOVD instruction 
50 00 70 0780 1179 MOVD $*#00,R0 ; Execute an D floating point instruction 


vemraae 


= VMS Secondary 


00000003 ore 1180 


1181 
g7B 11 ¢ 
783 «(11 
783 1184 
78 118? 
56 =606 «60783 «(1186 
00000001 bebe 1187 
57 03°8F §=9A O7B5 1188 
0789 1189 
50. 600) = 50 «60789 «61190 
00000003 O7BC 1191 
07B8C 1138 
O7BC 119 
O7BC 1194 
Q78C 1195 
QO78C 1196 
56 3606 «6(O078C «(1197 
00000001 O7BE 1198 
57 04°8F 9A O7BE 1199 
orcs 1200 
50 00 SOFD O7C2 1201 
00000004 07C6 1606 
07C6 120 
07C6 1204 
07C6 1205 
07C6 1206 
07C6 1207 
56 =6—06 «60706 «61208 
00000001 O7C8 1209 
57 04°8F 9A O7C8 1210 
o7cc 1211 
50 00 70FD O7CC 1212 
00000004 0700 1213 
0700 1214 
29. 11 «+0700 1215 
O7D2 1216 
07D2 1217 
07D2 1$18 
0702 1219 
07D2 1$30 
00 O0000'CF 56 €E2 O7D4 1221 
6—€ 57 CO O7DA 1 $6 
04 AE 10 CA 8708 1 
02 O7E1 1224 
O7E2 1225 
O7E2 1226 
O7E2 1227 
O7E2 1228 
7E2 1229 
00 O0000'CF 56 ee 7E4 1230 
028 OC 7EA 123) 
04 AE 10 7—0 1 § 
ie a 
7F2 1234 
7F2 1235 
7F2 1236 


| 
| 
| 
| 
} 
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MOVD_INS_SZ = . = MOVD_INS 


point instruction. It was chosen because 


it is one of the simplest instructions. 


; This is a sample F Hoot ing 
INCL R6 ; Bit indicator for F floating point 
-MDELETE MOVF 
MOVZBL #MOVF_INS_SZ,R7 

MOVF _INS: 

MOVF $*#00,R0 

MOVF_INS_SZ = . = MOVF_INS 


; Remember size of MOVF instruction 
; Execute an F floating point instruction 


point instruction. It was chosen because 


instructions. 


; This is a sample G floating 
; it is one of the simplest 


INCL R6 ; Bit indicator for G floating point 
-MDELETE MOVG 
nut Pa sacs #MOVG_INS_SZ,R7 ; Remember size of MOVG instruction 
= 5 $*#00,R0 : Execute an G floating point instruction 


MOVG_INS_SZ = . = MOVG_INS 


point instruction. It was chosen because 


instructions. 


: This is a sample H floatin 
3; it is one of the simplest 


INCL R6 ; Bit indicator for H floating point 
-MDELETE MOVH 
nen at #MOVH_INS_SZ,R7 ; Remember size of MOYH instruction 
is $*#00,R0 ; Execute an H floating point instruction 
MOVH_INS_SZ = . = MOVH_INS 
BRB 47$ ; ALL done, go restore OPCDEC handler 
3 Temporary OPCDEC and FPD emulation exception handlers 
; .ALIGN LONG 
45$: BBSS R6,W*EXESGL_ARCHFLAG,145$ ; Indicate data type must be emulated 
145$: ADDL 2 (SP) ; Point pest instruction causing fault 
Bicl #PSLSM_TBIT,4(SP) ; Clear T-bit for use with XDELTA 
: Temporary emulation exception handler 
. .ALIGN LONG 
46$: BBSS R6 ,W*EXESGL_ARCHFLAG,146$ ; Indicate data type must be emulated 
146$: ADDL ‘ ; Clean off emulation parameters 
pitt #PSLSM_TBIT,4(SP) : Clear T-bit for use with XDELTA 
: The following data areas are used to execute sample instructiors 
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7F2 1237 ; from all the classes that may have to be emulated via software. 


) 


7F2 1 : 
41 O7F2 1239 STRING: .ASCII "A" 
7F 1240 NUMERATOR: 
3C (O7F3) «(1241 -PACKED 3 ; Simple dividend 
7F4 1242 DENOMINATOR: 
3C O7F4 124 «PACKED 3 ; Nonzero divisor 
ore 1244 QUOTIENT: 
000007F9 ore ’ $2 -BLKL 1 ; This cell must be writable 
O7F9 1 23 PATTERN: 
gore 1 $8 EOSMOVE 1 
7FA 126 EOSEND 
sre ies 
a7re 1 26 ; Now check to see what software emulation images must be loaded. 
OvEB 198¢ i7s 
QOOO00FO BF D3 O7FB 1255 BITL #<ARCSM_CHAR EMUL ! ARCSM_DCML_EMUL ! ARCSM CRC_EMUL ! ARCSM_EDPC_EMUL>,- 
0000' CF 0801 1256 W*EXESGC_ARCRFLAG ; Any char/dceml7editpc/cre emul needed? 
06 12 0804 1257 BNEQ 4 ; Br if emulation needed 
2504°CF D4 Bane ; 38 48s CLRL W*VAXEMUL_STAT+STAT_L_NAME ; Set for no Lookup of image 
QOOOOFOO B&F D3 O80A 1260 BITL #<ARCSM_DFLT EMUL!ARCSM_FFLT_EMUL!ARCSM_GFLT_EMUL !ARCSM_HFLT_EMUL>,-~ 
0000' CF ong 1261 W*EXESGC_ARCAFLAG : Any floating @mulation needed? 
06 12 #O813 1 6¢ BNEQ ; Br if emulation needed 
251C°CF D4 0813 $3 io CLRL W*FPEMUL_STAT+STAT_L_NAME ; Set for no lookup of image 
OOFF 8F BA 0819 1265 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7> ; Restore volatile registers 
OOCC C8 8EDO 081D 1266 POPL “xCC (RB) ; Restore FPD emualtion vector contents 
00C8 C8 BEDO 08 3 1267 POPL *xC8(R8) ; Restore emulation vector contents 
10 AB 8EDO 33 . ; rt: roles 1 yen ; Restore OPCDEC vector contents 
000021C6"EF OO000'CF B80 4 ? : 4 OVW W*TTYSGW_CLASSNAM, TTNAME+1 ; Set ttdriver 2 letter prefix 
0834 1 ys ; Look up the various images that need to be loaded. If there is a name, 
0834 1275 ; then open the image, derive and store the VBN of the first VBN past 
tr ' a ; the image header and size (bytes) of the image excluding the image header. 
52 2438'CF §609E 0834 1 2 , MOVAB W*DSKDRV_STAT,R2 ; Get adr of first stat block 
55. 0B" 00 oe 9 127 MOVL S*#LOAD_TMAGE_CNT,RS ; Number of them to do 
OC A2 DS 083C 1278 50S: TSTL STAT_L_RAME(R2) ; Is there a name? 
08 13 O83F 1279 BEQL 60$ ; No, do not do anyehing 
‘yg? 30 41 1280 BSBW IMAGE _INIT : Open image, read ist block beyond hdr 
08 A6 C 44 1281 MOVZ2WL DPT$W SIZE(R6),- ; 
04 A 847 1 ; TAT_C_BYTECNT(R2) ; Number of bytes in load image. 
ee C9 gee? 1 60$: ADOL 4A C_SIZE,R2 ; Step to next driver 
eo 55 oF ee : : SOBGTR R5,50$ 3 Do them all 
ORG ' § 3; ALL Lookups are now complete, truncate the FILSOPENFILE cache 
84F 1288 LOOKUP_ALL_DONE: 
00° FB 4F 1289 “ CACLS #0,FILSCACHE_TRUNC 3; Truncate the FILSOPENFILE cache 
0 2165°CF 7D 0856 1290 MOVG wW*FIL$GQ_CACRE,RO ; Get size and address | 
5 7140 9 5B 1291 MOVAB -=-(RI)CR ; Form last byte, inc tusive 
2300'cF 50 F7 BF 78 O85F 129 ASHL #-9,RO,W*CACHE_HI_PFN : Save Last PFN in FILSOPENFILE cache. 
866 1295 HAVEPRM: ; ALL parameter values have been acquired 
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66 1294; 
és : 32 ; Acquire some useful information about the hardware/wWCS we are running on. 
0004 'CF 23AC'CF 7D re : 4 MOVa W*CPUDATA,W*EXESGB_CPUDATA+4 ; First longword contains SID. 
86D 1299 ; Use only specified number of physical pages to permit the testing 
2 : BY 3 of small memory configurations without actually reconfiguring hardware. 
86D 1 b -ENABL LSB 
50 44 OB 7D 86D 1 8 MOVa RPBS$Q_PFNMAP(R11),RO ; Get descriptor for PFN bitmap 
28 0 C4 1 1304 MULL oR ; Scale byte count to bit count 
sal > ae 74 «1 8? SUBL3 #1,RO0,W*MMGSGL_MAXMEM =; Assume all of memory is useable 
2 setae 4 7A (1 $ MOVL WMMGS$GL_PHYPGENT,R ; Get count of pages to use 
3 C O87F 130 CLRQ R3 :; Initialize bit pointer 
st} 1308 ; R4 = 0, have not discarded 
881 1509 3; an otherwise usable PFN yet 
38 61 53 €1 0881 1310 10$: BBC R3,(R1),20$ ; Skip over empty pages 
¢e D7? 0885 1311 DECL R2 ; Count a present page 
4 18 0887 1 \¢ BGEQ ; Continue if count not exhausted 
2C 56 00 €2 0889 131 BBSS #0,R4,17$ ; Branch if not first discarded PFN 
oooo'cr 53 O1 ¢ Base 1314 SUBL3 #1,R3,W°MMGSGL_MAXMEM =; Save highest useable PFN 
2304'CF D5 0893 1315 TSTL W*PFNMAP_HI_PFR ; Are we already safe 
OA 13 0897 1 1 BEQL 12$ ; Yes 
OEC7 30 0899 131 BSBW MOVE_BITMAP ; Try to move the bitmap to a safer place 
2304°CF 53 o 43 1318 wt RS WEP WMAP _HI PFN ; Discarding bitmap pages? 
23D0'CF 83 D1 O8A3 1320 128: CMPL R3,W*CACHE_HI_PFN ; Discarding FILSOPENFILE cache? 
08 14 O8A8 3 1 BGTR 15$ 3; Branch if not 
2165'CF 7C O8AA 1 g CLRQ W*FIL$GQ_CACHE ; Yes, disable it 
230° CF D4 OBA 136 CLRL W*CACHE_Al_PFN ; 
23EC*CF 53 D1 088 13246 15$ CMPL R3,W*°CI_HI_PFN ; Bumped into the Cl micro code? 
OA 15 0887 1325 BLEQ 1 : Branch if so 
0061 53 €5 0889 1326 17$: BBCC R3,(R1) ,208 ; Remove all pages once count exhausted 
CO 53 50 £2 088D 1327 20$:  AOBLSS RO.R3,10$ > Scan entire bitmap 
41.1 8c} 13 8 BRB SHELLSIZE 
0476 31 08C3 1380 218: BRW BUMP_CI ; Give error message 
08C6 1331 ; 
086 1332 PHYP_ER: é 
08C6 133 MSG <-F=-PFN bit map conflict - Physical page count set too low> 
00 0903 1338 HALT 
0904 1335 -DSABL LSB 
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904 1337; 
| 204 38 | ; COMPUTE VALUES FOR SHELL PROCESS FROM SYSGEN PARAMETERS 
$04 1340 SHELLSIZE: : 
52 0000'CF 03 78 0904 1341 ASHL 2," GNSGL_MAXVPGCT ,R2 ; 4sVIRTUALPAGE COUNT= BYTES OF PGTBL 
52. O1FF 9 090A 1 46 MOVAB 511(R2),R : ROUND uP TO PAGE BOUN 
52 52 F7 8F 78 O90F 134 ASHL  #-9,R : : DIVIDE BY 512 TO GET COUNT OF PAGES 
0000' CF 2 00 0914 44 MOVL  R2,W*SGNSGL_PTPAGCNT : SAVE COUNT OF PAGE TABLES 
8319 ! ‘8 3 COMPUTE SIZE OF WSL PART OF PHD 
53 Q000'CF 04 C5 0919 1 48 MULL #uSLSC LENGTH, W*SGNSGL_MAXWSCNT,R3; SIZE OF WSLIST 
51 O00O'CR 04 C5 O91F 134 MULL WSL$C” LENGTH, W*PQLSGDQSDEF AULT TARI; SIZE OF DEFAULT WSLIST 
1 53 51 €3 0925 1350 SUBL R3,R1 ; FIND EMPTY BYTE COUNT 
530378 C3 H 0929 1351 MOVAB mas _LENGTH#+511>(R3) ,R3 ADD FIXED SIZE AND ROUNDING 
50 0000'CF 20 AS 092E 1358 ULW3  #SECSC"LENGTH,W“SGNSGW. =MAXPSTCT RO: GUARANTEED SECTION SPACE 
50 50 3¢ 0934 135 MOVZWL RO,RO ~ ; ZERO EXTEND TO LONGWORD 
53 50) «6 C0 (0937 «1354 Ls RO, R3 ; ADD TO FIXED AND WS 
53. 53 F7 BF O78 «(093A.=«(1355 ASHL = #-9,R3, R3 : GET PAGE COUNT 
51 51 ~=F7 BF O78 «(093F «1356 HL = #9. R1,RI ; AND EMPTY P GE C 
0000'CF 53 51 AS’ 0944 1357 SUBUS R1,R3,W°SWPSGW WSLPTE ; COUNT OF FIXED +WSL PAGES 
O000'cF 51 80 094A 1358 MOVW R1,W*SWPSGW_EMPTPTE ; COUNT OF EMPTY P 
50 53 DO O094F 1359 MOVL  R3,RO : COUNT OF ALL WSL+FIXED PAGES 
53 53 09 78 0952 1360 ASHL #9.R3,R3 : BACK TO BYTE COUNT 
53 OFF C3)—=—(9E=«0956 1361 MOVAB 511(R3),R3 + ADD PAGE ROUNDING FACTOR 
50 52 CO 0958 136¢ ADDL  R2,R0 : GET TOTAL HEADER PAGE COUNT 
50 08 C4 O95E 136 MULL  4#8,RO + WSLX+BAK*+LCK+VAL = 2444141 
5350S C0 «(0961 «1364 108 ADDL  RO.R3 + HEADER BYTE COUNT 
50 50 7 BF 78 0964 1365 ASHL  #-9,R0,RO : CONVERT ADDED BYTES TO PAGES 
50 08 C& 0969 1366 MULL 8, RO ; ADDED PAGES BACK TO ADDED BYTES 
F312 096C 1367 BNEQ 10% : REPEAT IF SIGNIFICAN 
53 53 £7 BF 78 096€ 1368 ASHL #-9,R3,R3 : GET TOTAL _ PAGE COUNT. 
0000'cF 53 DO 0973 1369 MOVL R3,W*SGNSGL_PHDPAGCT ; SAVE TOTA 
50 53 09 78 0978 1370 ASHL #9.R3,RO 3 gy BYTE EouNT FOR PHD 
50 ¢c3 097C 1371 SUBL3 RO, 
O97E 1372 aK x80000000-<<<128e<suPéc _DBGPTCNT+SWPS$C_SHLP1PT>>=- 
O97E 1373 “SWPSC SHLFPTE>@9>>,- —; 
0000'CF  80000000'8F O97E 1374 W*MMGSGL_ CONTROL sREGION BASE VA 
0000'CF  0000°CF 09 0986 1375 MOVL. W*MMGSGL~CTLBASVA,W SuPSEL PHDBASVA; AND SWAPPER VERSION 
OooO'cF 53 51 C3 098D 1376 SUBL3 R1,R3,W*SGNSG PCNT ; TOTAL ALLOCATED PAGES FOR SHELL PHD 
0000'CF 53 B80 0993 1377 MOVW R3,W*SWPSGW_BARPTE SET AS TOTAL BAK P 
0000'CF O000°CR A2 0998 1378 SUBW 3s W*SWPSG U USCPTE "W*SWPSGW KPTE ; 
O000'CF 51 Ag 99F 1379 SUBWSséRRT ieeGes W_BAK ; SUBTRACT WSL AND EMPTY TO GET BAK 
Q000'CF 53 97 78 O9A4 1380 ASHL_ #7.R3,W*SGNSGL_PHDLWCNT ; COUNT OF LONGWORDS IN PHD 
50 53 é C1 O9AA 1381 ADDL3 Re. : TOTAL PAGES 
oo00'crF 50 07 78 O9AE 138 ASHL #7.RO,W°SGNSGL_PILWCNT ; LW COUNT | TO PIPT END 
54 04 0984 13 CLRL_ R4 ; ASSUME NO EXTENTION PAGES 
50 0000'CF O000007F'BF C1 09B 1384 ADDL3 #<127-SWPSC _SHLFPTE>,W*SGNSGL PHDPAGCT .RO COMPUTE TOTA 
05 15 09C0 1385 BLEQ 158 : BRANCH IF NO EXTEN NTTON” PAGES NEEDED 
54 50 F9 af 78 09c¢ 1386 ASHL : COUNT Of EXTENSION PAGES 
54 00° CO 09¢ 1387 15$: ADDL ite Th SHLPIPI R4 : TOTAL SHELL P1 PAGE TABLES 
0000" CF 54 DO O9CA 1388 MOVL RG W"SuPSGB LPIPT > SAVE RESULT 
00° CO O9CF 1389 ADDL S$*#SwP TACK Ré : ADD STACK 
54 8000" cr, C0 9b¢ 1390 ADDL So sensery =PHDAPCAT R4 -: ADD ACTUAL PHD PAGE COUNT 
4 gi CO 0907 1391 ADDL  $*#SWPSC”NDYN+1,R + VECTOR PAGE + DYNAMIC PAGES 
0000' CF 4 00 844 ' 3 MOVL R4, OsuPScr. VOHELLSIZ 3; SAVE SHELL SIZE TOTAL 


a 
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O9DF 1394 ; Check maximum and default process working set values to ensure 
SDF 1395 ; that they are at least large enough to contain the process header 
+4 : 99 ; plus the specified fluid working set. 
7E 0000'CF 9A O9DF 1398 ; MOVZBL W*SWPSGB_SHLPIPT rr ¢ ; GET COUNT OF MANDATORY PAGE {ABLES 
50 9900" ¢F 3c 09E4 1399 WOVZWL W°SGNSGW_ “MINWSCNT,R ; GET MINIMUM FLUID WORKING S 
50 0 CO Q9E9 1400 RO,RO ; DOUBLE FLUID REQUIREMENT 
50 > tat CO O9EC 1401 ADDL We SGNSG _PHDPAGCT ,RO ; ADD MIN PROCESS HEADER SIZE 
Q E CO O9F1 1008 ADOL (SP) 3; ADD COUNT OF NECESSARY Hee paaes 
50 O1° CO bees 148 ADDL Sr asubse KSTACK+1,R0 3; ADD KERNEL STACK AND VECTOR PAGE 
0000"CF 50 f 9F7 1404 CMPL 30 W*SGNSGL _MAXWSCNT 3; MUST BE LESS THAN THE SoTAL WORKING SET 
Ht 5 bere 1002 BLEQ ; CONTINUE IF SO 
0000' CF 9 00 HA; 1406 MOVL RO ,W*SGNSGL_MAXWSCNT ;_FORCE TO AT LEAST MINIMUM VALUE 
QA0S 1407 MSG <-4-Max imum WS raised to go hee 
FE38 831 gase 1408 BRW HAVEPRM ; RECYCLE TO RECOMPUTE SIZES 
00000000‘ EF 23 1 pase 1093 20$: anet BP POL SGOUSDEF AR. T : Hy: NTINOE Ip <6 LARGE ENOUGH DEFAULT 
0000° CF 50 DO OA37 1411 MOVL RO,W*PQLSGDWSDEF AULT 3 FORCE DEFAULT i} Ay these VALUE 
0000'° CF 50 DO OA3C 1216 MOVL RO,W*PQLSGMWSDEF AULT : ty ye DEFA 
0000' CF 50 DO OAS1 141 MOVL RO, *W*PQL$GDWSQU OTA 3; AND WS QUOTA 
0000‘ CF 50 DO OA46 1414 MOVL RO, *W*PQLSGMWSQUOTA ; AND MINIMUM Q 
QASB 1415 MSG <-W-WS default and quota raised to BHD +MINWSCNT> 
FDE6 31 pare 1218 30s BRW HAVEPRM : REPEAT CALCULATION 
50 OCOO'CF DO OA80 1418 MOVL W*SGNSGL_MAXWSCNT,RO ; GET MAXIMUM SIZE OF WS 
0060' CF 50 Di OA8S 1419 CMPL RO W*POQLSGDWSQUOTA : DEFAULT ope BE LESS THAN MAX 
08 18 OAB8A 1360 BGEQ 4 : YES, CONTINUE 
0000° CF 50 DO OA8C 1421 MOVL RO,W*PQLSGDWSQUOTA : LIMIT DEFAULT TO MAXIMUM 
FDD2 31 OA91 1056 BRW HAVEPRM : RECYCLE Yorn CALCULATIONS 
0000' CF 50 Di OA94 14235 40S: CMPL RO,W*PQLSGMWSQUOTA : SAME FOR MINIMUM DEFAULT WS 
08 18 OA99 1424 BGEQ 3; OK, CONTI _ 
0000‘ CF 50 4 OA9B 1425 MOVL RO,W*PQLSGMWSQUOTA ; LIMIT TO MAXIMUM 
FDCc3 1 QAAQ 1426 BRW HAVEPRM RECYCLE Meng 4 CA CULATIONS 
0000' CF 0000' CF D1 OAA3 1427 50$: CMPL W*PGL SGDWSQUOTA,W*PQL SGDUSDEF AULT DEFAULT MUST BE LEQ QUOTA 
OA 18 OAAA 1428 BGEQ 60% YES, CONTIN NUE 
0000'CF 0000'CF DO OAAC 1369 MOVL W"POLSGDUSQUOTA,U*POL SGDWSDE FAULT; LIMIT ord TO QUOTA 
FDBO 31 OAB3 1430 BRW HAVEPRM RECYCLE THROUG a TIONS 
0000° CF 0000‘ CF D1 OAB6 1431 60$: CMPL U"POL SGMWSQUOTA, W*POLSGMUSDEF AULT: SAME FOR MINIMUMS 
OA 18 OABD 1636 BGEQ 7 OK, C 
0000' CF 0000'CF DO OABF 143 MOVL AO amet W*POL SGMUSDEF AULT; LIMIT TO QUOTA 
FD9D 31 pace tr 70$ BRW HAVEPR 3; RECYCLE THROUGH CALCULATIONS 
54 0000'CF ooo" C1 QOAC9 1436 ADDL3 W*SGNSGL Atego scen § PTPAGCNT,R4 ; GET TOTAL BALANCE SLOT PAG 
0000'C 54 DO OAD1 14 MOVL R4,W*SWPSGL_BSLOTSZ ; SAVE SIZE OF BALANCE SLOT IN PAGES 
54 6000" CF C4 we \e38 NPAGE on USOnseL *BACSET CT R4 3; TOTAL PAGE REQ FOR BALANCE SLOTS 
0000'CF OOOOOIFF 8F CA OADB 1440 eet oW*SGNSGL ary itty : on DOWN TO PAGE BOUND 
0000° CF OOOOOIFF 8F CA OAE4 1441 BICL #*X1FF ,W*SGNSGL NPAGEVIR D DOWN TO PAGE BOUND 
0000° CF 0000°CF D1 OAED 1228 CMPL WSGNSGL “NPAGEVIR, W“SGNSGL NPAGEBYN’S NRAXIMIZE WITH DYN VALUE 
07 18 OAFS 144 BGEQ 108 VIR SUFFICIENT 
0000° CF a} 00°CF b0 AF6 1444 MOVL wv ceneel. NPAGEDYN wesGNsaL NPAGEVIR use LANGER Dee 
0000' CF 0000 1FF 8F CA OAFD 1445 108:  BICL_ #*X1FF,W*SGNSGL_PAGEDYN ; ROUN D DOWN TO PA 
50 0000°CF 0000 ' CF 4 0B06 1446 ADDL3 Hy GNSGL PAGEGYR. w* SGNSGL NPAGEVIR A pf “POOL BYTES 
50 ff 8F 8 0805 1447 ASHL #-9,RO0,RO 14g? PAGE 
0 CO et? ieee IRP SPT ADDL RO,R4 ; ti ROYNONIC Et oO FAR 
0000'°CF 0000'CF D1 0B16 1450 Ke CMPL W*SGNSGL_IRPCNTV,W°*SGNSGL_IRPCNT ; CHECK 1/0 PACKET COUNT 


M 16 
SYSBOOT = (MS Secondary Bootstrap Routine 16-SEP- 37 YAX/VMS Macro v04-00 Pp 7 
500-800 Secondary Bootstrap Main Rout ne oustF =|382 9: baid 42 LBOOTS.SRCJSYSBOOT.MAR;1 — ¢) 


1 B1D 103] BGEQ 10$ ¢ MAXIMIZE WITH inet 
0000° CF oneen, CF D BiF 14 § MOVL W*“SGNSGL IRPCNT ,W*SGNSGL pgp : USE COUN 
* pig OODO BF C B26 1455 108: MULL3) = #CIRPSC_CENGTH#“XF >&<*C<*XF>>,< 
fo 4 OB2C 1454 W*SGNSGC_IRP (NIV. R1 i CALCULATE TOTAL BYTES 
21 9E 0830 1455 MOVAB 511(R1),R1 :" ROUND TO PAGE BOUND 
oe &F 78 0835 1456 ASHL #-9,R1,R° ; CONVERT TO PAGE COUNT 
54. 51 CO OB3SA 1457 ADDL R1,R4 ; ADD TO SPT TOTAL 
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v0G Secondary Bootstrap Main Routine be 7:06:42 ([CBOOTS.SRCJSYSBOOT.MAR;1 (3) 
OB3D 1459 ; 
4 rs ie 3 NOW ESTABLISH THE SPT REQUIRED FOR THE LRP LIST 
D 1466 LRP_SPT: 
Q00000D0 BF D1 4 146 CMPL #<<IRPSC_LENGTH*“XF >8<“C<*XF >>> 
0000" CF 43 1464 W*SGNSGL-LRPSIZE ; 1s PACKET SIZE TOO SMALL ? 
15 4 1465 BLEQ S08 : IF LEQ, NO 
0B4 1089 ASSUME IRPSC_LENGTH LE <*xF0> 
DO BF 9A 0848 1468 MOVZBL #<<IRPS$C OT ty laa oh - 
0000° CF 48 1469 W*SGNSGL-LRPSIZE ; FORCE SIZE TO MINIMUM 
00000058 BF 1 4— 1470 308: ADDL3 #CxBsc OVERWEAD “XE ,= ; COMPUTE NEW LRP SIZE AND PREPARE 
51 ppoo"se 0854 1471 WSGNSGL LL ars ite. 7 FOR RO N 
00000000 ' EF 1 OF cB 0B58 147¢ BICL3 #*xF TC *B00$G RPSIZE: ROUND SIZE TO MULTIPLE OF 16 
0000'CF O000°CF D1 0B60 147 CMPL U-SGNGL  LRPCNTVS Tu"SGnSGL_ LRPCNT ; CHECK I/O PACKET COUNT 
07 18 0B67 147% BGEG 408 “MAXIM ZE WITH LRPCNT 
0000"CF  O0000°CF D9 0B69 1475 MOVL_ W*SGNSGL_LRPCNT,W*SGNSGL. LRPCNTY 3 USE COUNT 
51 O000°CF  O0000000°EF C5 0B70 1476 40S:  MULL3 brian “LKPSIZE, W*SGNSGC_LRPCNTV RI CALCULATE TOTAL BYTES 
51 OFF C1 OB7A 1477 MOVAB 1), Ri ; “tOUND 16 PAGE BOUND 
ae ee ef 78 OB7F 1478 ASHL 9,R1, rt + CONVERT TO PAGE COUNT 
54 OS1~—SCti«éO OB84 1479 ADDL RI ke + ADD TO SPT TOTAL 
0887 1481 : ALLOCATE SPT FOR THE SMALL PACKET LIST 
QOOO'CF OF CO 0B87 1288 SRP_SPR:ADDL  #*XF,W*SGNSGL ~SRPSIZE : ROUND UP TO 16 BYTE BOUNDARY 
O000"CF OF CA OBBC 1484 BICL # #*XF.W*SGNSGL~SRPSI 
O000"CF OO00°CF D1 0B91 1485 CMPL W*SGNSGL_SRPCRTV,W* SGNsGL_ SRPCNT CHECK 1/0 PACKET COUNT 
18 0898 1486 BGEQ 408 ize WITH SRPCNT 
0000°CF 000°C D9 OB9A 1487 MOVL_ W*SGNSGL_SRPCNT.W*SGNSGL. SRPCNTY USE COUN 
S51 OO00'CF O000°CF CS OBAl 1488 40S:  MULL3 W*SGNSGL SRPSIZE, W*SGNSGL _SRPC V>RI ; CALCULATE TOTAL BYTES 
51 OFF C1 3 OBA9 1489 MOVAB 511 LaF ; ROUND "6 PAGE BOUND 
51 51 £7 8F 78 OBAE 1490 ASHL 2-9 RL RI : CONVERT TO PAGE COUNT 
4 51 cC OBB3 1491 ADDL R1,R4 : ADD TO SPT TOTAL 
0BB6 1498 PFN_SPT: 7 
51 23CC"CR 23C8°CR C3 OBB6 149 SUBL3  W*MEM_LO_PFN.W*MEM_HI_PFN, Rt PAGES MAPPED BY PFN DATABASE 
23CE"CF 85 OBBE 1494 TSTW  W*MEMTHI-PFN42 ; rE THAN 32 MBYTES PRESENT? 
09 12 OBC2 1495 BNEQ 80 ; BRAN NCH IF YES 
51 Q0000000°8F C4 OBC4 1496 MULL § #PFNSC_WORD_LEN,R1 : BYTES FOR PFN DATA BASE 
07 +11 OBCB 1497 BRB 9 : JOIN COMMON CO 
51 00000000°8F C4 OBCD 1498 80$: MULL #PFNSC_LONG_LEN,R1 : BYTES FOR PFN DATA BASE 
51 OFF C1 9 0BD4 1499 90$:  MOVAB 511(R15,R1 + ROUND TO PAGE D 
51° 51~—=O#F? ef 78 O0BD9 1500 ASHL #-9,R1, : CONVERT TO PAGE COUNT 
54 51 CO OBDE 1501 ADDL R1,R4- ; ADD TO TOTAL SPT SIZE 
54 oo'cF CO OBE 1308 ADDL W*SGNSGL_SPTREQ.R + ADD REQUESTED EXTRA PAGES 
54 OO'CF €O OBE6 150 ADDL wW*EXESGL “RTIMESPT R4 ; Add SPTs requested for use by 
OBEB 1504 ; realtime processes using 
OBEB 1505 ; connect to inte ret, 
54 00000000'8F co OBEB 1506 ADDL  #MMGSC_SPTSKEL,R4 ; ADD SIZE OF SPT SKELETON 
50 06000°CF C OBFe 1507 MOVZWL W*SGNS$GW_SYSDWSCT,RO ; GET SIZE OF SYSTEM WORKING SET 
50 046 C& OBF7? 1508 MULL #WSLSC_LENGTH,RO BY 3 sbhce OF WORKING SET 
50 0378 CO 9 OBFA 1509 MOVAB <PHDSC™ ~CENGTHS511>(RO), rb: PHD WITH WORKING SET LIST 
51 Q000°CF 20 aS OBFF 1510 MULW #SECSC™ TLENGTH,W*SGNSGW_GBL éetni Ri: BYTES FOR GLOBAL SECTIONS 
51 1 3 C05 1511 MOVZWL R1,R1 ; ZERO Ex WOR 
0 51 C C08 131¢ ADDL  R1,.RO ; a SYSTEN HEADER BYTES 
50 50 F7 BF COB 151 ASHL  #-9,R0,RO : CONVERT TO PAGES 
2101 °CE 0 pO 0C10 151% MOVL  RO,W*BOOSGL_SYSPHDPG =; SAVE SYSPHD PAGE COUNT 
54 50 cO 0C15 1515 ADDL RO.R4 : ADD TO SPT REQUIREMENT 
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50 900" fF 3¢ OC1B 1 1 MOVZWL wW*SGNSGW_ISPPGCT,RO : PAGES OF INTERRUPT STACK 
4 9 ¢ C1 153 ADDL ; : ADD TO SPT REQUIREMENT 
51 0000°CF 78 0C20 1 18 ASHL  #2.W*SGNSGL_MAXGPGCT.R1 ; REQUESTED NUMBER OF GLOBAL PAGES 
C26 151 3 TO SIZE OF GLOBAL PAGE TABLE 
51. O1FF C1 3 C26 1520 MOVAB 511(R1),R1 + ROUND TO PAGE BO 
1 €7 8 78 OCeB 1521 ASHL #-9,R1, : CONVERT TO PAGE COUNT 
2149" CF 1 pO OC30 15 : MOVL  R1,W*BOOSGL_GPTPGCT ; SAVE COUNT OF GLOBAL PAGE TABLES 
6 51 cO 0C35 15 ADDL R1,R4 : ADD TO SPT TOTAL 
C 8 1504 SIZ_SCB: : COMPUTE # PAGES FOR SCB 
50 01 9A : 13 5 MOVZBL #1,R0 + ASSUME 1 PAGE SCB 
C38 15 5 CPUDISP <<780.S12_SCB_780>.- : DISPATCH ON CPU TYPE® 
(38 15 g <750,$12-S(B-750>.- —; 
(3a 15 <730,$12-SCB-730>,- 
oc 38 1530 <790,$12-SCB-790>,- 
0c 38 1331 wv SIZZSCB_UVT>, = 
038 1338 ENVIRON=VMB 
tee 1535 $12_SCB_790: : 11/790: 
50 904 00 OC6E 1536 MOVL #4,R0 ; ALWAYS ALLOCATE MAXIMUM SCB SIZE 
0€ 11 oc? 1337 BRB $12_SCB_END 
0C73 1539 $1Z_SCB_730: 
0C73 1540 $12"SCBUV1: 
50 06 oc? 1541 INCL RO : SCB ALWAYS 2 PAGES (1 UNIBUS) 
0A 11 oc? 1348 BRB $12 SCB_END 
0C77 1544 $12_SCB_750: : 11/750: 
50 D6 OC77 1545 INCL RO t ASSUME 2 PAGE SCB (1 UNIBUS) 
0099 (8B 4295 «(0C79 «(1546 TSTB §RPBSB_CONFREG+10750$C_SL_UB1(R11) ; SECOND UNIBUS CONFIGURED? 
02 13 OC7D 1547 BEQL 12_SCB_END | BRANCH IF NOT 
50 D6 Oc7F 1348 INCL : ELSE 3 PAGE SCB 
ocBt 1990 $12_SCB_780: : (FOR 11/780, PAGE COUNT=1) 
oc8t 135¢ $12_SCB_END: > *END OF CPU-DEPENDENT CODE* 
2384°CF SO 00 0C81 1554 MOVL  RO,W*SCBPAGCT : SAVE SCB SIZE IN PAGES 
54 50 CO OCB6 1555 ADDL  RO,R4 : ADD SCB PAGES TO SPT TOTAL 
2388'cr 50 09 78 OC89 1556 ASHL #9.RO,W*SCBBYTCT : SAVE SCB SIZE 
54° 7F AG) «GE «(OCBF 61557 MOVAB 127(R4),R4G + ROUND TO PAGE 
51 56 £9 8F 78 OC93 1558 ASHL  #-7,R4,R1 + CONVERT TO PAGES 
54 CSS 60 098 1559 ADDL 1,R4 : ADD PAGES OF SPT TO MAP 
54 56 F9 BF 8 0C9B 1560 ASHL #-?7,R4,R4 : PAGE COUNT FOR SPT ALLOCATION 
21B1'CF 54 DO OCAO 1561 mow R4 ,W*BOOSGL_SPTPAGCT : SAVE COUNT OF PAGES 
OCA 136¢ ALLOCSPT: 4 : ALLOCATE SPACE FOR SYSPHD AND SPT 
58 21C1°CR 54 (C1 Ochs 1564 Appts R4.W°BOOSGL_SYSPHDPG,R8 ; TOTAL SIZE OF PHD+SPT 
58 2384°CF CO OCAB 1565 ADDL W*SCBPAGCT, : PLUS SCB 
57 468 AB DO OCBO 1366 MOVL RPBSQ_PFNMAP+4(R11),R7 ; GET ADDRESS FOR PFNMAP 
56 23CC°CF DC OCB4 156 MOVL W*MEMHI_PFN,R6 : GET HIGHEST PFN+1 IN MEMORY 
36 D? ocBs 1368 10$: DECL R6 + POINT TO NEXT/HIGHEST PAGE 
27 14 «+OCBB 1569 BGTR 208 * CONTINUE IF PAGES AVAILABLE 
OcBp 1570 15$: MSG <-F-Unable to allocate SPT+PHD+SCB.> 
00 ces 1371 HALT ; ee FATAL ERROR te 


atin 


e283 


50 


69 0000° 
2388°CF 
0 
83 


D1 67 
1AD° 


21AD* CF 


BC 67 
58 
4C AB 
51 
02 67 


SVS SSS FSSA AS 
OO "“HROWOOA AHO 


ROMIO-VIMSe-VCcIO-C 
MAMONO-a—~ onu 


7” 
 N 


59 56 
2198°CF 
2304 °CF 
2300°CF 
2165‘ CF 
DO*CF 


23 
23—EC*CF 56 
28 


OWwwouwnwourod 
OOneamwowo 


238C°Cr 8659 
CF 0200 8F 


00000200 or 


D 
- VAS Secondary Bootstrap Routine 


1 


—& 


29ON0-0-0N 
BROS 220-0 


16-SEP-1984 00:11:37 VAX/VMS Macro v04-00 Pa 3 
Secondary Bootstrap Main Routine 46-SEP-1984 ere teoots sre SYSBOOT.MAR; 1 - 3 
CES 1573 208 BBC R6,(R7),108 3; FIND HIGHEST PAGE NUMBER 
ie } ie pact ue OOSGL _NEXTPFN 5 ty WE MARKED IT? 
cE 1 6 MOVL R6,W*BOOSGL_NEXTPFN ; SAVE HIGH WATER MARK 
ef : 4 258: chet : $ ; INIT COUNT OF CONTIGUOUS PAGES 
CF 1579 30S: DECL R6 3; NEXT PAGE (LOWER) 
CF9 1580 BBC R6,(R7),10$ ; SKIP IF NO FIT 
CFD 15 1 35$: INCL RO ; BUMP COUNT OF PAGES 
CFF 15 ¢ CMPL RO,RB ; CHECK FOR FIT 
Op02 15 BLSS ; NOT YET 
4 12 4 SUBL RO,RPBSL_PFNCNT(R11) ; ACCOUNT FOR PAGES REMOVED 
pos 1585 MOVL R6,R ; COPY LOWEST PAGE NUMBER 
OD0B 1586 40$: BBCC R1,(R7),50$ 3; MARK PAGE ALLOCATED 
ODOF 1587 INCL R 3 NEXT 
31) 1388 50$: SOBGTR RO,40$ 3; ALLOCATE THEM ALL 
0014 1590; R6 - PFN FOR START OF SCB 
0014 1591; R7 = BASE OF PFNMAP 
0D14 1336 § RB - SIZE OF SYSPHD+SPT+SCB IN PAGES 
pote 1337 $ RG = SPT SIZE IN PAGES 
0014 1595 ASHL #9, R6,RI ; COMPUTE PHYSICAL ADDRESS OF SCB 
0D18 1596 CMPL By W*BOOSGL_FREEMEM 3; CHECK FOR OVERLAP WITH SYSBOOT 
OD1D 1597 BLSS 3; CONTINUE IF OK 
OD1F 1598 CMPL R6,W*PFNMAP_HI_PFN : RAN INTO PFN BITMAP? 
0D24 1599 BLEQ ; BRANCH IF YES 
0026 1600 CMPL R6,W*CACHE_HI_PFN 3; RAN INTO FILSOPENFILE CACHE? 
0D2B 1601 BGTR 5§ : BRANCH IF NOT 
544 1986 CLRQ W*FIL$GQ_CACHE ; YES, DISABLE IT 
0D31 160 CLRL W*CACHE_AI_PFN 
0D35 1604 55$: CMPL R6,W*CI_HI_PFN ; RAN INTO CI MICROCODE? 
OD3A 1605 BGTR 7$ : ; BRANCH IF NOT 
OD3C 1606 BUMP_C1:MSG <-F-PFN allocation overwrites Cl ucode.> 
0066 1607 HALT 
0D67 1608 
0D67 1609 57$: MOVL R9,RO 3; GET A WORKING COPY OF ADDRESS 
OD6A 1610 ASHL #5,R8,R1 ; GET COUNT OF DOUBLE QUADWORDS 
OD6E 1611 60$:  CLRO (RO)+ : CLEAR A 
0D7 19i¢ CLROQ (RO)+ ; DOUBLE QUADWORD 
0D7 161 SOBGTR R1,60$ ; CLEAR THEM ALL 
0075 1614 -DISABLE LSB 
0075 1615 INIT_SCB: 3; INITIALIZE SYSTEM SCB 
0075 1918 MOVL R9,W*SCBPHADDR 3; SAVE PHYSICAL ADDR OF SCB 
OD7A 161 movc3 #512,W*SCBSAL_BASE, (R9) : COPY ARCHITECTURAL PART 
0D8 1618 : SCB (1 PG) FROM TEMPLATE 
0D8 1619 ; TO SYSTEM COPY. (RETURNS 
0D82 1620 : ADDR+5i2 I ms 
OD82 1621 SUBL3 #512,W*SCBBYTCT,RO ; GET # BYTES REMAINING IN SCB 
OD8C 16 ¢ BLEQ 20$ ; BRANCH IF NONE 
D8 16 ASHL #-2,R0,R0 ; CONVERT # BYTES TO LONGWDS 
D9 1624 10$: MOVL + gt eather : SET NEXT VECTOR TO UNEXPECTED INT 
oo se 5 SOBGTR RO,10$ ; BRANCH IF MORE VECTORS 
o09p 16 $ ; CPU specific code for 11/780. Point SCB vector 0 saeorvuats and NEXUS 
484 1 3 3; vector 0 interrupts to separate routine in module ERRORLOG. 
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DID 1630 
DID 1631 20S: CPUDISP <<? §-$CB_vEC 7 >,- ; Dispatch on CPU type 
DID 16 ¢ <750,SCB_VEC_750>,- 
DID 16 <730,SCB_VEC_730>,- 
OD9D 1634 <790,SCB_VEC_790>,- 
DID 1635 <UV1,SCB_VEC_UV1>,= 
D9D 16 § >,* 
DID 16 ENVIRON=VMB 
ODDO 1638 
DDO 1639 SCB_VEC_790: 
51 046 00 ODDO 1640 MOVL #4 ,R1 : 4 pages of SCB vectors 
OA 11 +3 194) BRB FILL_NEXUSO ; Set address in nexus 0 vectors 
0DD5 1808 SCB_VEC_780: 
51 9 DO ODDS 1644 MOVL #1,R1 : 1 page of SCB vectors 
69  O00000000°9F DE ODD8 1645 MOVAL @M#ERLSVEC_RETURN,(R9) ; Dispatches through SCB location 0 
ODDF 1066 ; should be harmless on a 780. 
ODDF 1647 FILL_NEXUSO: 
50 59 DO ODDF 1648 MOVL R9,RO Copy ointer to SCB 
0100 CO Q0000001°9F DE ODE2 1649 10S: MOVAL a#vERLSVEC_RETURN41 “x1000R0) inibus pespive releases can cause 
0140 CO 0100 CO DO ODEB 1650 MOVL *X100(RO) >*X140(ROS : interrupts for “TR #0°'; make them 
0180 CO 0100 CO 00 ODF2 1651 VL *X100(RO) ,*X180(RO) ; harmless (at ar IPLs). 
01C0 CO 0100 CO dO ODF 1626 —_ *X100(RO),*x1CO(RO) 
50 00000200 8F CO OE00 165 #*x200,R0 ; Step to next page of SCB 
pd&8 51—sF 5 +344 1638 SOBGTR R1,10$ ; Fill im vectors in next SCB page 
OEOA 1656 SCB_VEC_750: : 
QOEOA 1657 SCB_VEC_730: : Do nothing for 11/750 and 11/730 
OEOA 1658 SCB_VEC_UV1: 
OE0A 1659 
OEQA 1660 ; End of CPU dependent code 
QEQA 1661 
OEOA 1006 INIT_SYSPHD: : INITIALIZE re. oy 
2388 CF CO QEOA 166 ADDL W*SCBBYTCT,R9 STEP PAST SCB -— 
69 0000°CF 017C BF 28 OEOF 1664 MOVC3 #PHDSC LENGTH, W*BOOSA_ SYSPHD (RY) Y PHD TO REAL PLACE 
O000'CF 80 OE17 1665 MOVW W°SGNSGW_SYSDWSCT,RO ~ ; GET SIZE 0 » evinte WORKING SET 
50 a9 6550) «=©—B0SC#*OECIC rg MOVW RO, sage “beet 7 (ROD s Se stem WORKING SET sige 
50 10A9 AO OE20 166 ADDW W_WSREXT(R9) ,RO 3 GET POINTER TO WORKING SET 
1249 50 60 OE24 1668 MOVW RO PHOSU, USLAST CRO) ; SET END OF aft WORKING SET LIST 
18 a9 50 B80 OE28 1669 MOVW RO, PHDSW_WSQUOTA(RI) 3; SET QUOTA VAL 
OA AI 50 B60 bese 1670 MOVW RO, PHDSW_WSAUTH(R9) 3; FOR CONSISTENCY 
1A A9 50 B80 OE30 1671 MOVW RO, PHDSW_DFWSCNT (RI) 3 SAKE 
16 A9 50 B60 0E34 1676 MOVW R ee een ears i osee 
14A9 50 B60 3 8 167 VW RO,PHDSW_ THEXT (RY) 
42 AD  QO000'CF BO OE 1674 MOVW “SGNSGL pong ALTE eee BHVINDEX(RO) SET HEADER NUMBER 
1F AD Q000'CF 01 1 OE4 1675 ADDB3 3 #1,W*SGNSGW_SWPFILES,P PAGF IL(R9) éeT SYSTEM to) oy FILE 
oocc C9 =21B1°CF 07 8 pee 1676 L #7.W*BOOSGL~ Hope PHOS POLRA RASTL(R9S ; ; SET SPT LENGTH 
0000° CF OOcc C9 DO VESI 1677 MOVL PHOSL POLRASTL(R9) MMGSGC_SPTLEN ; AND SAVE FOR REFERENCE 
51 21C1°CF 9 78 OF58 1678 ASHL #90 goog shy WSeWOpe. RTs : BYTE OFFSET TO SPT. 
‘CF §865§9 1 cI OESE 1679 ADDL3 Ri. Rg," SAVE PHYSICA ~ sooee sf F SPT 
20 a9 1C1°CF 09 0E64 1680 ASHL Ss "SYSPHOPG, Pups PSTBASOE F(R AVE AS ore OFFSET 
cc C9 «6009 «678 «(ESB «(1681 ASHL Ay Fuse w. CRA TE MAX ayéTeM ADDRESS+#1 
2 gi 1f 78 O€71 1689 ASHL #VASV_S hoe " SYS TER MASK 
8A9 650 C9 OE75 168 BISL3 R esi Rif hen gan : SAVE AS MAX ADDRESS 
O°CF 28 C9 OE7A 1684 BISL R2,RO,W°MMGSGL_FRESVA : 
0000' CF 0 c9 494 be BISL . oRO,W*MMGSGL_MAXSYSVA ; 
0000° CF 50 5 C9 O&86 1686 BISL “RO, *W°MMGSGL~ _MAXGPTE ; 
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21BD°CF 59 DO OEBC 1687 MOVL Rg W*BOOSGL_SYSPHD SAVE PHYSICAL PHD ADDRESS 

51 o0cc £9 aa i e31 16 8 suBL3 abate _GPTPGCT ,PHDSL Pouiasi ter’ rStorré PN OF GPT 
oo00'cr 50 52 C9 OE9D 1690 BISL3 $GL_GPT ; Base OF GLOBAL page TABLE ENTRIES 
1 2161°CF ce EAS 1691 SUBL ith SeTEA AGCT, é + VPN OF SPT 
0 51 69 EA 1698 ASHL ss # + BYTE ADDRES 
o000'cF 50 C9 OFAC 169 BISL »RO,W°MMGSGL_GPTBASE ; SAVE AS GPT BASE 
"cr «8650 C9 OFB2 1694 BISL *RO,W°MMGSGL-SPTBASE : AND SPT BAS 
c9 0 C9 OFBB 1695 BISL RO. PHDSL_POBR(R9) + AND VIRTUAL SBR 
1 iC1'CF ce EBE 1696 SUBL oes SYSPHDPG,R1 + VPN OF SYSPHD 
so. 51 99 78 OFC3 1697 ASHL : BYTE ADDRESS 
o000'cr 50 ‘ c9 geC 1698 BISL3 a W°MMGSGL_SYSPHD =: SAVE VIRTUAL POINTER TO PHD 
9000° 21c1'cr §=60 8 OECD 1699 ASHL. #9.W*BOO$GL SYSPHDPG.W*MMGSGL_SYSPH HDLN ; BYTES IN SYSTEM PHD 
50 O000°CF O000'CF CS OEDS 1700 MULL3 w*SWPSGL_BSCOTSZ,W* SGNSGL *BALSETCT R : BALANCE SET MAP SIZE 
50 51 50 C3 OEDD 1701 SUBL3 RO, R1_R “VPN OF BAL “eas 
0000'CF 0000'°DF40 DE OEE? 1708 MOVAL aW*MMG$GL_SPTBASECROJ, w*SuPscL BALSBr ; SET BASE OF BALANCE MAP 
50 50 09 78 OEFE9 170 ASHL »RO,R ; CONVERT VPN TO VA 
oo0o'cF 50 52 C9 OEED 1704 BISL3 R2.RO, gl SUPSGL _BALBASE ; SAVE vA BASE OF BALANCE SLOTS 
50 388° CF C2 OEF3 1705 SUBL UFECe : COMPUTE VA OF SCB 
00000000°EF 50 52 C9 OEFB 1706 BISL3 2,0, ExESGL SCB + SAVE SYSTEM SPACE VA OF SCB 
50 E00 CO SE OFOO 1707 MOVAB Re Be : SKIP ONE PAGE FOR ERROR DETECTION 
o000'cF 56 52 C9 OFOS 1708 BISL3 R2, “iar L_INTSTK : SET BASE OF INTERRUPT STACK 
3 0000'DF41 DE OFOB 1709 MOVAL @W‘MMGSGL_SBRCR1],R3_ : POINTER TO SPTE 
oR 2384 CF C3 OF11 1710 SUBL W* SCBPAGCT RB. RO ; Ger & # PAGES IN PHD+SPT ONLY 
56 2384"CF CO OFI7 1711 ADDL. wW*SCBPAGCT ; GET PFN OF START OF SYS PHD 
83 80000000 8 C9 OFIC 1718 10$:  BISL3 #<PTESC CERKW!PTESM. VALID! PTESC PKOWND, R6,(R3)+ =; MAP A PAGE 
6 06 OF24 171 INCL ; NEXT"PEN 
F350 «FS «(OF25 «(1714 SOBGTR RO,10$ : MAP ENTIRE SYSPHD+SPT 
50 21A9°CF DO OF29 1715 MOVL W*BOOS$GL_GPTPGCT,RO : COUNT OF GLOBAL PAGE TABLE PAGES 
70000000 8F D0 OF gE 1716 208:  MOVL #PTESC_URKW,(R3)+ : FILL THEM AS DEMAND ZERO 
F650 FS OF35 1717 SOBGTR RO,20$7 ; 
OF38 1718 MAPSCB: ; MAP SCB 
15 09 EF OF38 1719 EXTZV #VASV_VPN.AVASS_VPN.=  ; GET VPN OF 
51  0000'CF OF3B 1720 W*EXESGL : $CB 
53. 0000'DF41 ve OF3F 1721 MOVAL au=AAGSCE. SBRERI, R3;: GET ADDR OF SPTE TO FILL 
51 2384°CF DO OF4S 1722 MOVL W*SCBPA i: GET # PAGES OF SCB 
238C'CR F7 BF 78 OF4A 172 ASHL #-9,W*SCBP GET PFN OF START OF SCB 
000000 8F C9 OFS1 1724 10S: BISL3 #<PTESC erin ae nag HE _KOWN>,= ; MAP NEXT SPTE 
83 50 OF57 1725 0,(R3)F 
50 06 OF59 1726 INCL ; STEP TO NEXT PFN 
F351 FS OF5B 1727 SOBGTR R1,10$ MAP W WHOLE SCB 
OFSE 1728 MAPISTK: INTERRUPT STACK 
51 Q000'CF 15 O09 EF OF SE 1729 EXTZV #VASV_VPN, VAS VPN wend INTSTK,R1 ; GET VPN FOR INT STK 
53. 0000'DF41 E OF6 1730 MOVAL aw*MMGSGLSBRCRTJ,R3 VASPT + & 
51 OO000°CF 3C OF6B 1731 MOVZWL W*SGNS$GW “TSP BPGcT oR R1 : GET PAGE COUNT FOR INTERRUPT STACK 
77E = 30 OF? 1732 10S: SBW ALLO ALLOCATE A PAGE 
73 80000000 ef C9 OF73 173 ISL3. #<PTESC_ERKW!PTESM_VALID! Pres KOWN>, RO,-(R3); a VALID MAP ENTRY 
F251 £5 OF7B 1734 SOBGTR R1,10$ ~ P ENT e“INfeRnuPt § 
51 O000'CF 3¢ OF? 1735 MOVZWL W*SGNSGW_ISPPGCT.R1 ; CET ize a INTERRUPT ot ACK 
51 06 OFB3 1736 INCL R1 ; skIP ONE PA R ERROR DETECTION 
73 «pS «OF85 «61737 TSTL = (R3) ; ALSO 0. BUMP SPT POINT ER DOWN 
51 51 09 78 OF87? 1738 ASHL #9,R1,R1 : CONVERT TO BYTES 
0o00'cr «6051s C3 Org 1739 SUBL3 R1,W°EXESGL_INTSTK,R1 ; FORM ADDRESS OF BASE 
OF91 1741 
OF9 1748 
OF91 174 


= Nn 


> LOOK ASIDE LIST 
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F91 1744 ALLOC_SRP: 
1745 MOVL 


O’EF OOOO'CF DO OF91 17 W*SGNSGL_SRPCNT,L“BOOSGL_SRPCNT ; COUNT OF SRP’S TO INITIALIZE 
se 0000"Et $O8' EF g FIA 176 MULL3 W*SGNSGL LESRPSIZE, W*SGNSGC_SRPCNT “Res CALCULATE TOTAL BYTES 
é iFF ce E FAG 174 MOVAB 511(R2) ;"ROUND fO PAGE 
53 QOOO1FF BF CA OFA 1748 ICL. #*KX1FF,R2 U 
50 00 ‘gf OOO'CE CS OFAE 174 MULL3 W*SGNSGL_SRPSIZE, u-sensl -SRPCNTY RO; CALCULATE VIRTUAL BYTES 
0 O1FF CO SE OFB6 1750 MOVAB 511(RO),R AND ROUND TO PAGE BOUNDARY 
50 QOOOOIFF BF CA FB 1751 BICL #*X1FF,RO : 
00000000'EF 51 50 C3 OFC 1738 SUBL3 RO, R1,- 
FCA 175 L*600$6L SRPSPLIT : LOOKASIDE LIST SPLIT ADDRESS 
QO0O00000"EF 52 C1 OFCA 175% ADDL3 R2,L*BOOSGL_SRPSPLIT,- 
9900" CF FD1 «(1755 USANGSGL _SRPNEX XT ; NEXT PAGE TO ALLOCATE FOR SRP AREA 
0 52 ¢ FD4 1756 SUBL = R2 + COMPUTE SIZE OF GAP 
50 50 F9 ef FD? 1757 ASHL = #=7, RO, RO : CONVERT TO 4* 
53 50 c2 OFDC 1758 SUBL 0,R3 : SKIP SPT ENTRIES FOR GAP 
51 52 67 BF 78 OFDF 1759 ASHL © #=9,R2,R1 : COMPUTE PAGE COUNT TO ALLOCATE 
OE 13 OFE4 1760 BEQL 208 ; BR F NONE 
0708 30 OFE6 1761 10$: ®8SBW  ALLOCPF LLOCATE A PAGE 
73 50 B0000000 8F C9 OFE9 1206 BISL3 SEP TESC NERKW!PTESM. vaLioietese KOWN>,RO,-(R3); FILL VALID MAP ENTRY 
F251 5 OFFI 176 SOBGTR R1,10$ ~ P ACTIVE SRP AREA 
OFF4 1764 208: 
OFF4 1765 ALLOC_IRP 
52. QO0O'CF DO OFFS 1766 OV W*SGNSGL IRPCNT . Re ; USE COUN 
Q00000000°EF 52 DO OFF9 1767 MOVL  R2,L*BOOSGL_I ; COUNT OF Tree S TO INITIALIZE 
52. 00000000 8F C4 1000 1768 MULL  #<IRPS$C SLENGIHS“KF>be*Ce XF>>, RQ, CAL CULATE DOTA BYTES 
58 O1FF C2 SE 1007 1769 MOVAB sfitR 2)7R2 ; ROUND TO PAGE BOU 
52 QOOOOIFF 8F CA 100C 1770 BIC #OKIFF R2 ; SIZE OF ALLOCATED. ORE AREA 
00000000 BF ¢5 1013 1771 MULL3 #<IRP$C LENGTHS XE >€<*C <2 XF>>,- 
0 0000°CF 1019 1078 W*SGNSGC_IRPCNTV,RO ; CALCULATE TOTAL BYTES 
50 O1FF CO 9E 101D 177 MOVAB 511(RO), RO t ROUND TO PAGE BOUNDARY 
50 OQOOOIFF SF CA 1028 1774 BICL #*X1FF,RO : VIRTUAL SIZE OF IRP AREA 
51 00000000°EF 50 C3 1089 1776 SUBL3 RO, L*BOOSGL_SRPSPLIT.R1 ; BASE ADDRESS OF IRP AREA 
00000000°EF 51 DO 1031 1777 MOVL. R1.L*BOOSGLSPLITADR : LOOKAS IDE LIST SPLIT ADDRESS 
0000'CF 52 51 C1 1038 1778 ADDL3 R1.R2, U"RMGSCL- IRPNEXT ; SET ADDRESS FOR NEXT ALLOCATION 
50 52 €2 103€ 1779 SUBL —R2 : COMPUTE SIZE OF GAP 
50 50° F9 BF 78 1041 1780 ASHL  #-7,R0,RO : CONVERT TO PAGES*4 
53 50 ce 1046 1781 SUBL _——RO, R3 > SKIP S AENTRIES FOR GAP 
51 52 F7 BF 78 1049 1788 ASHL #-9,R2,R1 : CONVERT ACTIVE ARE TO PAGE COUNT 
OF 13 1046 178 BEQL 08 : BR IF NONE 
069E 30 1050 1784 10$:  BSBW ; ALLOCATE A PAGE 
73. «50 80000009 ef C9 1053 1785 BISL3 risitt NERKW!PTESM. VALID! PrESC KOWN>,RO,-(R3); FILL VALID MAP ENTRY 
F251 £5 105B 1786 SOBGTR R1,10$ ~ P ACTIVE IRP AREA 
igee 158 COS ; 
105E 1789 ; NOW ESTABLISH THE SIZE AND BASE ADDRESS OF THE LARGE REQUEST PACKET 
105E 1790 ; LOOK ASIDE LIST 
105€ 1791 : 
105€ 1798 ALLOC_LRP: 
00000000°EF  O000°CF OF CB 1056 179 BICL3 #*XF,W*°SGNSGL_LRPMIN L *BOOSGL LRPAIN ROUND THE MINIMUM SIZE 
00000000°EF  O000°CF D0 106 1794 MOVL We SGNSGL _LRPCRT = BOOSG LRPCAT OUNT OF LRP'S TO INITIALIZE 
52. 0000°CF O0000000°EF ¢5 1071 1795 MULL3 BCP grPsize. we SGNSGC- LRPCNT.R Roe > CALCULATE TOTAL BYTES 
6 ott C2 9€ 1078 1796 MOVAB 511 s"ROUND f0 PAGE 
2 900 1FF BF CA 1080 179 BICL X1F ; + BOUNDARY 
50 O000°CF O0000000°EF C5 1087 1798 MULL3 Rica LRPSIZE. su*sonscl LRPCNTY RO; CALCULATE VIRTUAL BYTES 
50 OFF CO 9E 1091 1799 MOVAB 511 AND ROUND TO PAGE BOUNDAR 
50 OOOO01FF 8F CA 1096 1800 BICL  #**1FF,RO ; 
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OOO000000'EF 50 C3 109D 1801 SUBL3 RO L“BOOSGL_SPLITADR, 
0000 900"§f 10A4 1 8 1 *BO0$SL LRPSPLIT ; LOOKASIDE LIST SPLIT ADDRESS 
00000000‘ EF 2 C1 10A9 180 ADDL3 ROL *BOOSGL Us pei 
000" CF 10B0 1804 USAnGSGL LRPNEXT 3; NEXT PAGE TO ALLOCATE FOR LRP AREA 
2 c 1083 1805 SUBL 3 COMPUTE SIZE OF GAP 
50 50 F9 8F 1086 1 06 ASHL Rese RO,RO t CONVERT TO 4* 
5350 ; 108B 180 SUBL  RO,R3 : SKIP SPT ENTRIES FOR GAP 
51 52. F7 BF 10BE 1808 ASHL = #-9,R2,R1 + COMPUTE PAGE COUNT TO ALLOCATE 
3 13 10C3 1809 BEQL 0$ ; y IF NONE 
06 30 10C5 1810 10$: BSBW ALLO ‘ ALLOCATE A PAGE 
73 50 conta, F f 10¢8 1811 BISL3 wePTESC. NERKW!PTESM. VALID! PTESC KOWN>,RO,-(R3); FILL VALID MAP ENTRY 
F2 51 100 1818 pi: SOBGTR ; MAP ACTIVE “LRP AREA 
10D 1814 MAPNPAGDYN: : MAP NON-PAGED DYNAMIC com 
51 00000000 ° EF 00 10D 1815 MOVL L“BOOSGL_LRPSPLIT,R1 : GET ADDRESS OF PREVIOUS AREA 
50 0000‘ CF 0000'CF C 10DA 13i¢ SUBL3 U*SGNSGL“NPACE VIR W*SGNSGL NPAGEDYN s = SIZE OF GAP 
1 0000° CF ce IES 181 SUBL W*SGNSGL_NPAGEVIR,R1 : AND COMPUTE BASE OF POOL 
"CF 2} DO 10€7 1818 MOVL R1,W°MM _NPAG : | OF E 
0000 CF 000° CF 1 C1 10EC 1819 ADDL R1,W*SGNSGL_NPAGEDYN, WAMAGSGL NPAGNEXT ; SET VA OF NEXT PAGE 
0000’ CF 1 0000° CF C3 10F4 1820 SUBL w*SGNSGL PAGEDYN,R1,W “MMGSGL AGEDYN ; COMPUTE - oe OF PAGED POOL 
7 8F 78 10FC 18s) ASHL #-9,R0,R VERT GAP TO P COUNT 
53 6340 DE 1101 18 ¢ MOVAL (R35CR 63, R3 : ADVANCE SPT POINTER PAST GAP 
51 0000‘ CF DO 1105 182 MOVL W“SGNSGL_NPAGEDYN,R1 ; GET BYTES OF POOL 
51 51 F7 8 78 110A 1824 ASHL #- iheoe ay : oy sonyess TO PAGE COUNT 
OSDF 30 110F 1825 10$: BSBW ALLOCPF : LLOCATE A PA 
73 50 B0000000 8F c9 1112 18¢6 BISL3 #<PTESC NERKW!PTESM. ws PTE SC KOWN>, w -(R3); FILL A VALID MAP ENTR 
F2 51 F5 iio est SOBGTR R1,10$ ~ P ALL POOL P AGES 
111D 13¢) ; PREALLOCATE THE TOP OF POOL AND PLACE THE FILSOPENFILE CACHE UP THERE 
1138 1330 3; START BY ESTBALISHING THE SIZE AND BASE ADDRESS OF THE IRP LOOKASIDE LIST 
50 00000000'EF DE 111D 1838 MOVAL L“BOOSGL_NPAGEDYN,RO ; ADDRESS OF POOL SIZE WITH 
60 0000°CF DO 11246 183 MOVL b*SONSGL” -NPAGEDYN,(RO) ; INIT TO SIZE OF NON-PAGED POOL 
1129 1834 3 PREALLOCATED PIECES TAKEN OUT 
1129 1835 : 
1129 1836 : Now allocate pool for: 
1199 1837 ; Boot Driver for System Disk 
1129 1838 ; and any ucode needed for it 
1129 1839 ; System Disk Driver 
1169 1840 ; Port Driver (if a “) 
1129 1841 ; Terminal Driver - TTDRIVER.EXE 
1129 1304 : CPU dependent code - SYSLOA.EXE 
1129 1843 ; SCS loadable code - SCSLOA.EXE 
1129 1844; 
1129 1845 ALLOC_DRIVERS: 
52 2420'CF DE 1129 1846 MOVAL W*BOODRV_STAT,R2 ; STAT BLOCK FOR BOOT DRIVER 
54 ° . ° 112E 1847 MOVL S*#ALLOC “POOL_ CNT,R4 ; NO. OF DRIVERS TO ALLOCATE SPACE FOR 
0c38 0 11351 1848 10$: BSBW ALLOC_POOL 
52 18 CO 1134 1849 ADDL #STAT“C OSIZE, R2 ; POINT TO NEXT STAT BLOCK 
7 54 OFS a 4 ' 9 SOBGTR R4,108 ~ 3; ALLOCATE SPACE FOR NEXT DRIVER 
113A 1326 ; The following code calculates the amount of space needed to map the 
1}eA 1332 3 : FILSOPENFILE cache. The cache will be released sometime Later by SYSINIT. 
VR 1333 ALLOC_FILCACHE: 
53 2165'CF DO 113A 1856 MOVL W*F IL$GQ_CACHE ,R3 : GET SIZE IN R3 
27. 613 «#+113F 1857 BEQL 80$ ; BRANCH IF DISABLED 
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23 oF CO 1141 #1 28 ADDL #*XF LR 3; ROUND TO QUAD WORD 
FCA 1163 : 23 BICL #*xXFR ; FOR POOL ALLOCATION 
1147 1861 ; IF THE FILSOPENFILE CACHE IS LARGE WITH RESPECT TO THE AMOUNT OF 
bd } $¢ ; SPACE THAT IS LEFT IN THE POOL, THEN SIMPLY DISABLE IT. 
5 0 DO 1147 1864 MOVL (RO) RS ; SPACE IN POOL 
5 : C6 116A 1865 DIVL ie. 6 : 50% OF THE SPACE LEFT 
5 Di 1140 1996 CMPL R3,R5 3; CACHE TOO BIG? 
02 15 1130 186 BLEG = 70 > BRANCH IF NOT 
5 D6 11 1 8 50$: CLRL + : DISABLE THE FILE CACHE 
5 be 1382 1 § 70$: TSTL ® : IS THE CACHE ENABLED? 
19 13° «11 § 1870 BEQL 80$ ; BRANCH IF NOT 
60 5 C2 115 1871 SUBL R3,(RO) ; ALLOCATE FILSOPENFILE CACHE 
54 Q000°CF $9 C1 1158 1376 ADOL3 (RO) ,W*MMGSGL NPAGEDYN,R& ; ADDRESS OF FILE CACHE IN POOL 
00000000‘ EF 5 7D 1161 187 va R3,L*BOO$GQ_FILCACHE ; SET SIZE AND ADDRESS OF FILE CACHE 
1168 1874 80$: 
1168 1875 ; 
1168 1876 ; There are two separate Le eget: + ne on the FILSOPENFILE cache 
1168 1877 ; being allocated as the next higher address after INILOA. First the 
1168 1878 ; initial pool fragmentation is eliminated by the orderly deallocation 
1168 1879 ; of these 2 pieces, INILOA by INIT and the FILSOPENFILE cache by SYSINIT. 
1168 1880 ; Second, the code at MOVEFILECACHE below depends on being able to 
1168 1881 ; disable the FILSOPENFILE cache by ehoar tog the descriptor and adding 
1198 1386 ; its size to the Length of INILOA for deallocation by the INIT code. 
1168 1884 ; At this point non-paged pool look Like this: 
1168 1885 ; 
1168 1886 3 ¢ ewe eecoes eoeseeeeeeeseeseseseoeesoesocescoe} 
1168 HH 5 ! ! :MMGSGL_NPAGEDYN 
1168 1888 ; : ; ! 
1168 1889 ; ! Available Pool ‘ 
1168 1890 ; ' ' 
1168 1891 ; : : 
1168 189¢ : pooccccwccccceccccccecccccccecccccceccecce + 
1168 1893 ; : , 
1168 1894 ; : FILSOPENFILE Cache ! ;:BOO$GQ_CACHE 
1168 1895 ; ! ! (deallocated by SYSINIT) 
1168 1896 : ¢ wee eeeeseeeoeeeeeeeeoeeeeoeeeceeesceececoese + 
1168 1897 ; : ‘ 
1168 1898 ; ! MTACCESS.EXE ! ;BOO$SGL_MTACCESSLOA 
1168 1899 ; : (if loaded) ’ 
1168 1900 ; : : 
1168 1901 s ¢wwweeeeceoeoececoce weeeecooooecoecoeeoeecs + 
1168 1908 § ! : 
1168 1903 ; ' VAXEMUL .EXE ! :BOOSGL_VAXEMUL 
1168 1904 ; ‘ ! 
1 198 1905 F; fc ORO DOH HED ROOM Ee wm eee + 
116 ime ; : ’ 
1198 1907 ; : FPEMUL .EXE ! ;:BOOSGL_F PEMUL 
1168 1908 ; : : 
1168 1909 “ $e ewe ene erence ewe ner ene mene ww nm meme we mew owee + 
1168 1910 ; : : 
1168 1911 ; ' CHKPRTLOA.EXE ' ;BOOSGL_CHKPRTLOA 
1168 1916 3 ! (if loaded) : 
1193 19135 ; : ‘ 
116 1914 ; pitino minnnanninndmm Ee + 
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1168 1915 ; } ‘ 
1168 1318 5 ERAPATLOA.EXE ! :BOOSGL_ERAPATLOA 
1168 1917 ; ! (if loaded) ! 
1168 1918; . $ 
116 1919 ; beer etree nnn oe saat maar nannawewrerae wesw aoae + 
1168 1920; ’ ! 
1168 1921; : CLUSTRLOA.EXE ! ;:BOOSGL_CLSLOA 
1168 19 ¢ s ! (if loaded) ! 
1168 1923; ; : 
116 19 4 4 ¢eeeecececoean we ee Se ee sen nme me aw woe 
139 1925 ; : ‘ 
11 19 § } ; SYSLOAxxx.EXE ! :BOO$SGL_SYSLOA 
1168 1927 ; : ! 
1168 19 a g peewee secre re ewes eeomer een ee wee ees + 
1168 1929 ; ! ‘ 
1168 1930 ; ; SCSLOA.EXE ! ;:BOO$GL_SCSLOA 
1168 133! $ ! (if loaded) ! 
1168 19 ¢ : ! ' 
1168 193 3 ¢eeasrt encore eon een eoas Se cee nar enrae sawn ewre nas + 
1168 1934 ; ' ! 
1168 1935 ; ' TTDRIVER.EXE ! ;:BOO$SGL_TRMDRV 
1168 1936 ; ! ! 
1168 1937 MH t$ewer cero resco ec es emeEeaaoasaone er er rere ec cence + 
1168 1938; } ! 
1168 1939; : PxDRIVER.EXE ! :BOOSGL_PRTDRV 
1168 1940 ; ! (if loaded) ! 
1168 1941; ! } 
1168 1308 $s tame ee se een eee roe eee mem ene em ee wee - ee enroee oS 
1168 1943 ; ! : ! 
1168 1944 ; ! System Disk Driver ! :BOO$SGL_DSKDRV 
1168 1945 ; : ! 
1168 1946 3 Fem oweeceeeeeoeeeeoescesesecececeecececces + 
1168 1947 ; ! ! 
1168 1948 ; 4 BOOTCB . ' ;:BOO$GL_BOOTCB 
1168 1949 ; : Bootstrap Disk Driver ! —:RPBSL_TOVEC (RPB_ADR) 
1168 1950 ; ! Microcode file ! ;:BOO$GC_UCODE 
1168 1951 ; : ! 
1168 1326 : fGeoeceeeeesooosooeoeseoesoesooooecoecoeccocea + 
1168 1953 ; § n : ' 
1168 1954 ; : LRP Look-aside List ! ;:BOOSGL_LRPSPLIT 
1168 1955 ; ! ! 
1168 1956 2 ¢eeoeeeeoceeceeceas ene eo + 
1168 1957 ; : ‘ rE ! 
1108 1338 : : IRP Look-aside List ! :BOOSGL_SPLITADR 
1168 1959 ; ; : Sis 
1168 1960 3 dwwweoeoeoees cceeeececocesocoscoeceoceccecn + 
1168 1961 ; ¢ ; : ! 
1493 1366 : : SRP Look-aside List ! :BOOSGL_SRPSPLIT 
1168 1965; : ! 
1168 1964 : Seweeeeoceeeeeeeeceseseeeeoweseeseeseecescan + 
1168 1965 ; 
1393 13e8 ; MOVE SKELE(ON SPT TO ACTUAL LOCATION 
0000'8F 28 1168 1968 MOVC3 #<MMG$C_SPTSKEL@2>,- 3 
0000°CF 116C 1969 W*MMGSAC_SYSPAGTB,- 3 
0000 ' DF Hy 4 1970 aw*MMGSGC_SBR ; 
1172 1971 MAPRESEXEC: 3; MAP RESIDENT EXEC 
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09 0000'CF * €1 #1172 197 BBC S*#EXESV_SYSPAGING, W*EXESGL_DEFFLAGS,10$ ; BRANCH IF NOT PAGING 
0000 CF § 09 ff 1175 1307 EXT2V ivAsl _VPR,#VASS_VPN, w*MMG of r6DCOD Ri ke GET START OF PAGED EXEC 
51  Q000°8F 3C 1181 1975 10$: MOVZWL SC HAGSAL _PGDCOD n-*x80060000>a-99 R1  ; GET END OF PAGED EXEC 
53 0000'°DF41 be 1186 1976 08: MOVAL au" AAGSGL - SBRLR1],R3 SVASPT 
0562 118C 197 $: BSBW LLOCPFN : ALLOCATE wir PAGE 
73. sos OOF FFEFF ef CA 118F 1978 BICL aPiESM PFN, =-(R3) : CLEAR FIELD 
63 3 4 1136 1323 Bret 2 (R3) : ATTERPT SIMPLE MERGE OF PAGE 
63 50 F0000000 ef C9 1198 1983 BISL3 #<PTESC_URKW!PTESM_ vat 10! PTESC axon RO cn3) ” A VALID PAGE 
£651 F5 111A 1988 40$:  SOBGTR R1,30$ ~ RESIDENT 
11A6 198 MAPPFNDAT: : nap orf BASES 
QOOOO000'EF B84 1146 1984 CLRW mNGSGu BIGPFN ASSUME WORK Whitt: IN PFN DATABASE 
0000' CF 3CB8°CF DO 11AC 1985 MOVL MEM CO. PEN. W°MMGSGL _MINPFN : INITIALIZE SMALLEST PFN 
000° CF D4 118 1986 clrl ; songs ; kkrekeaereeeee TEMP as ana 
53 g}AD' Cr 02 C1 11B7 1987 ADDL3 sain” RERTPEN, R3 : START WITH CURRENT TOP PFN + FUDGE 
4 OQO000'CF CE 118D 1988 MNEGL uhh ih _MINPFN,R4 ; R4 CONTAINS NEGATIVE OF BASE PFN NUMBER 
54 C0 1i¢e 1989 ADDL : RS N NOW CONTAINS PFN COUN 
55 53 00000000°8F cS 11C5 1990 MULL SPENSC _-WORD_LEN,R3,R5 ; PEN DATA BASE SIZE (ASSUME SHORT FORM) 
> Fe. .F 78 11CD 1991 ASHL #-9,R5—°R : CEN DATA BASE PAG 1 
55 21AD'CF 55 C3 1102 1998 SUBL3 ns oB608GL _NEXTPFN,RS ; PAGES AFTER ALLOCATING PEN DATA BASE 
55 55 £0 8F 78 1108 199 ASHL 6.R5,R5 ~ ; IS IT BIGGER THAN 65 K PAGES 
6 13 11DD 1994 BEQL is : NO 
O0000000'EF B86 11DF 1995 INCW MMG$GW_BIGPFN CONDITION FOR IF MACROS 
E> 1996 1$: PFN_DISP_IF_BIGPFN_THEN END _BIGPFN_CODE=3$ 
11ED zThis code executes if the PFN Link arrays are aS arrays. 
0000°CF 00° 8F 90 11—E0 1997 MOVB #PFNSC_LONG_ LEN Bg = yf 
1if3 1998 PFN_DISP_ELSE ELSE_CODE=3$, COMMON. CODE=6$ 
11F5 zThis code geneuees if the PFN Link arrays are word arrays. 
0000'CF O00°8F 90 11F5 1999 MOVB #PFNSC_WORD_LEN,W*PFNSGB_LENGTH 
ire 2000 PFN_DISP_ENDIF COMMON _ CODES 6$ 
11FB End of code that gepends on size of sat link arra 
55 QO00'CF 9A 11FB 2001 MOVZ2BL W*PFNSGB_LENGTH,RS ; R5 CONTAINS NUMB i OF BYTES PER PAGE 
52. 53)=—555)—siCS—s«1200 3008 ULL RS ; COMPUTE BYTES OF PFN DATA BASE NEEDED 
52. O1FF C20 SE. «1204 «200 MOVAB 511(R2),R2 ; ROUND UP TO PAGE BOUND 
50 52 7 8F 78 1209 200% ASHL #-9,R2, 3 AND CONVERT 19. PA 
50 55 C4& 120E 2005 10S: MULL RS,RO ; GET BYTES OF PFN DAT 
52 50 C2 1211 2006 SUBL RO,R2 ; REMOVE FROM REQUIREMENT 
50 50 7 8F 78 1214 2007 ASHL #-9,R0,RO : GET PAGES REMOVED 
Fz iF 1219 2008 BNEQ 10$ : BR IF WHOLE PAGES REMOVED 
SS St w7 of 78 121 009 ASHL #-9 ,R2,R2 : BONVERT TO PAGE 
53. 52 C2 1220 2010 SUBL R2.RS t SUBTRACT PAGES OF PFN DATA 
53 55 C4& 122 011 LL R5,R3 : COMPUTE BYTE OF 
52. OlFF C3) «=«9E «1226 vig MOVAB 514(k3),R2 ; ROUND TO NEXT P 
51 52 £7 8F 78 1228 201 ASHL #-9,R2,R1 : COMPUTE PAGES OF PFN DATA BASE 
52 51 09 78 1230 O14 ASHL #981 Re : BACK TO BYT 
5 2 § C7? 1234 15 DIVL R5,R2, ; COMPUTE NUMBER OF ENTRIES 
52 QOOO'CF 5 C3 1238 O16 SUBL Re. WRAGSGL -PAGEDYN. R2 ; SUBTRACT FROM PAGEDYN TO GET PFN BASE 
, 2000 CF 5 po 1 § 01 MOVL <M SAVE AS BASE OF FIRST W°PFN ARRAY 
OOO'CF OO00'DF4S DE 1243 2018 MOVAL aw PENSAL “BTEC |W*PENSAL “BAK ; ADD SIZE AGE COUNT 
0000'CF 0000°DF43 bE 1 48 019 MOVAL aW*PFNSAL BAKLR3),W*PFNSAW REFC ent FOR PPReH OF THE W*PFN ARRA 
0000'CF  O000°DF43 3E 125 020 MOVA Se PE NEAL REFCNTLR3),W°PFNSAx FLIN 
198 021 PFN ADISPS IF BIGPFR_THEN END ABIGPEN éove= se 
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1 $3 This code executes if the PFN Link arr corse 4 jopars arrays. 
OOOO'CF O000'DF4S DE 126 0 ¢ MO W*“PFNSAx_FLINK tt FNS ; TO GET ADDRESS OF 
0000° CF 0000'DF4 DE 1 9 0 MOVAL aW*PFNSAx_BLINKCRS WAPENSAU™ BL OVEN: ARRAY ASE 
t 024 PFN_DISP_ELSE ELSE_CODE=208, COMMON. CODE=25$ 
127 :This code executes if the PFN Link ecrers ~¢ 4 vee arrays. 
0000°CF 0000'DF4 Ha 1275 025 ay Aw @W*PFNSAx_FLINKLR3J] ,W*PFNSAx To GET ADDRESS OF 
0000° CF 0000'DF4 —E 127D os8 MOVAW  a@W*PFNSAx— _BLINK(R3), “W*PENSAU: BL PVEN; ARRAY BASE 
} He 0 PFN_DISP_ENDIF COMMON_CODE=25$ 
1285 z;End of code that depend size of PFN PY arrays 
0000‘ CF 0008 Dees M3 1 33 8 8 MOVAW aw*PFNSAW_SWPVBN a0 4 W*PFNSAB AL 
0000° CF 0000'DF4 E : 58 9 3 MOVAB aw*PFNSAB_ STATECR3S W*PFNSAB_ TYP ; 
1295 2031 ; RESET BASE OF EACH ARRAY TO ACCOUNT FOR NONZERO MINPFN. 
: 32 O36 3; R4 CONTAINS THE NEGATIVE OF THE SMALLEST PFN IN THE PFN DATA BASE. 
0000° CF 0000'DF44 DE 1295 034 MOVAL aW*PFNSAL_PTECR4], Bere yy at 
9000‘ CF 0000'DF44 DE 129D 035 MOVAL a@W*PFNSAL “BAK R4],W°PFNSAL BAK 
0000' CF 0000'DF44 3E 12A5 036 MOVAW a@W*PFNSAW- REFCNTLR4I, —— REFC 
1sAd 037 PFN_DISP_IF _BIGPFA_T END ABIGPFN. Loves 30$ 
12B5 This oon executes if the PFN Link + occeys are Longuord arrays. 
0000‘ CF 0000 DF44 DE 1285 2038 OVAL awW*PFNSAx _FLINKCR4J 4g - 
0000' CF 000. 'DF44 DE 12BD 2039 nOV AL aw*PFNSAx “BLINKER4I, w* PENSAX” 
1sC3 2040 PFN_DISP_ELSE ELSE _CODE= 308° COMMON. CODE=35$ 
12C7 sThis code executes if the PFN Link arrays are word arrays. 
0000' CF 0000'DF44 3€ 12C7 ope eae aW*PFNSAx_FLINKCR4] ,W*PFNSAx_FLINK 
OOO0O'CF OO00'DF44 3E 12CF 93 VAW aW*PFNSAx =BLINKERS J *W*PENSAXx~ BLINK 
1g07 204 PFN ISP ENDIF COMMON _ CODE=35$ 
1207 pend of cong that geponds on size of PFN Link arrays 
0000* CF 0000'DF44 3E 1207 2044 MOVA FNSAW_SWPVBNCR4) ,W*PFNSAW_SWPVBN 
0000° CF 0000'DF44 9E 12DF 2045 MOVAB a “pF NSAB_ STATECR4), W*PENSAB STATE 
0000' CF 0000'DF 44 9E 12E7 2046 MOVAB aW*PFNSAB_ TYPECR4], W*PENSAB TYP 
52 DD 12EF 2047 PUSHL R2 ORVE. PFN DATA AREA BASE ADDRESS 
52 52 15 09 EF 12F1 2048 EXTZV #VASV_VPN, rth f VPN,R2,R rd COMPUTE AN PAGE NUMBER 
53 Q000'DF42 DE 12F6 2049 MOVAL aW*MMGSGLSBRCR2],R$ -’ : AND CONVERT TO SVAPTE 
53 gel DE igre 050 MOVAL (R3) CRISCRS ; POINTING ”. HIGH VPN+1 
3€E 30 1300 2051 40$: BSB ALLO : ALLOCATE A PAGE 
73 $0 80000000 8F C9 1303 $326 BISL3 acPTESC ERKW!PTESM_ coe ipTesc KOU 2 RO,-(R3); MAP A VALID ENTRY 
50 0 09 78 1308 205 ASHL ; CONVERT TO PHYSICAL ADDRESS 
52 0040 BF 3 130F O94 MOVZWL aste/6, R2 : > SET COUNT TO CLEAR 
80 C 1314 55 45$: CLRQ : CLEAR A QUAD 
FB 52 «#©F5) «(1316 «2056 SOBGTR Roe Oss : CLEAR ENTIRE PAGE 
E4 51 F5 131? 057 SOBGTR R1,40$ : DO ALL OF THE PFN DATA BASE PAGES 
04 BA 131C 2058 POPR #*A<R2> i RESTORE BASE ADDRESS 
A 059 MAPRPB: 
- i i aa oe 3 060 EXTZV #VASV_VPN,#VASS_VPN,R2.R Rd : FREE atilst VPN+1 
52 07 136 061 DECL R ; VPN FOR RPB 
a 28 “" % re 3 i $66 pact Ha ry PFNMAP+4 1) fos “he ron MARK RPB ALLOCATED 
50 | f.9000000 BF C9 13¢F 2064 108: BISL3 BcPTESC_URKU!PTESM-VALIO!PTESC_KGWN>-RO-@HMGSGLSBRCR2] ; MAP PAGE 
4C AB 7 133C $063 DECL Boos), Pr uceT cnt) ; ONE LESS AVAIL AML E PAGE 
50 52 09 8 133F 2066 ASHL #9,R2,R0 + CONVERT VPN TO V 
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oo00'CF 50 80000000 gf 9 1343 2067 BISL3 #7 480000000 RO.WEXESGL RPB SAVE VA OF RPB | 
0000' 2 GE 134 MOVAB $GL“SPTFR ipSAve F FOR. SUBSEQUENT USE | 
0000' CF boo af f 5 MOVZWL mancse SPTSKEL? w*B00 ot § PTFREL ; SAVE LOW VPN ALSO 
0000' CF 1AD'CE 86D 3 MOVL  W*BOOSGL_NEXTPFN,W°MMGSGL_MAXPFN ; SO AVE MAX PFN VALUE | 
6 MAP_XDELTA_ INIT: MAP _XDELTA AND INIT 
53 FFCOOOOO'SF pO 136 MOVL #<<MMGSA_ S¥s _END=*x80000600>a R3 : VPN+1 OF END OF EXEC 
0000' BF C 136 MOVZML #<<MMGSA~ SaEN bs MAGSAL_F PODCODENSS-9>, R1: COUNT OF XDELTA+INIT 
53 0000'DF43 be $ MOVA oonmesel #3 BRER3],R PTE+4 
037¢ 10$: ®8SBW atioe PFN ; {toe ATE A PHYSICAL PAGE 
73 «50 0000009 ef 9 137 BISL3. #<PTESC_URKW!PTESM_ VALID! iPTESC KOWN>,RO,-(R3); MAP A VALID PAGE 
F251 5 f SOBGTR R1,10$ ~ P ALL POTENTIALLY PAGED EXEC 
4 3 
; SET MAP INFORMATION FOR BOOT DRIVER 
INI TBOOTDRV: 
59 0000'8F  3¢ MOVZWL #<<MMGSA_SYS END-*x80000600>a-9> RO : SET NUMBER OF PAGES 
00000000'EF 59 dO L R9,BOO$GC_SPTFREL ; SAVE NEXT FRE EE SPT ENT 
54 34 AB 00 MOVL RPOSL TOWER (RING R4 : Sry pointer I 0 1/0 SECTOR 
5B ODD PUSHL ; ADDRESS OF RPB 
00000000'9F OF PUSHAL SURAGSA SYS_END ; VA FOR 1/0 WINDOW 
‘CF =DD PUSHL W*MMG$GC_S + PHYSICAL ADDRESS OF SPT 


04 B444 03 FB CALLS #3,@BQO$C_MAP(R4)CR4] ; CALL BOOSMA 


Bape ing information has now been provided to permit the bootstrap 
ver to read the EXEC into non-contiguous physical pages. 


Read the drivers and other loadable pieces of code into their 
allocated slots in non-paged pool. 


PMOPMOITOTOPIPOPOPONIPONIPONS 
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NOPONON 2 MODOC ODODOOOS OOOO OOO 19 O00 00 09 00 09 09 0909 09 SIN SN SIN OO 
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52 2438°CF DE MOVAL W*DSKDRV_STAT,R2 : SYSTEM DISK thet hi BLOCK 
55 0B* 00 MOVL Py: IMAGE. _CNT,RS5 : NO. OF LOAD IMAGES TO READ 
0425 30 10$: BSBW LOAD _CO ; LOAD THIS IMAGE INTO POOL 
52. 18 CO ADOL #STAT C_SIZE,R2 ; ADDRESS OF NEXT STAT BLOCK 
‘7 33 OFS SOBGTR R5,108 ; LOAD NEXT IMAGE 


Geountng system paging | is enabled (SYSPAGING = 1), the EXEC is read 
in two pieces. Th st contains all the resident code, the second 
genta’ XDELTA, INIT, and the BUGCHECK code. The pages of BUGCHECK 

ssages are oes read in any longer, though they were in release 2. 
When YSPAGING = 0, the entire system is read in (including the paged 
code) and in this case too, the read stops short of hy by B n 
BUGCHECK messages. The BUGCHECK code is stiil required because 
salutation put out by INIT uses the CONSOLIO code in BUGCHECK. there 
may or may not be other needs for this code. 


PMOPIPIPIPYIPIPININI MO OO 2 9 8 BOM DWMNMONM NOQOOCOCOOV VIVO NOOO 
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If we are operating Standalone (i.e. boot device is console device) allow 
for a volume switch at this point. 


LAIN AIA AAAI AIA AAAI NNN AINA AIA ANNI NAAN AINA 


If a volume auitch occurs: 
- ALL en’ files will be closed by zeroing the STAT_L_VBN, STAT L prem 
one st T ahs MAP fields. The file cache will be dealfocated. ALT Til 
ng Information in the BOOTCB will be zeroed. 
- = SY STAT block will contain a dummy retrieval pointer which maps those 
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$ d Bootst M Routi 46-SEP-1984 23:06:4 BOOTS.SRCJSYSBOOT.MAR; 1 
138 124 ; blocks on the previous volum eis). 
138 125 ; - The flag RPBSV_NOSYSDISK in RPBSB_FLAGS will be set so that any code with 
! : ! § 3 access to the RPB will be able to tell if a volume switch has occurred. 
DO 138 128 MOVL #1,W*CONEOF ENABLE i sot A FLAG THAT vO. UE SWITCH IS ALLOWED 
DO 138 129 MOVL #<<<BUGST MESSAGES+511>8" €511>=*x80000000> 
13BE 2130 ; NUMBER OF BYTES ” oF F SYS TO READ 
DO 138 131 MOVL w*sys oS TATSSTAT LA MAP,R4- : yer TO LOGICAL MAP 
4 135C 1 ¢ MOVL Wests TA tena _L_VBN, *R3 : RTING . IN IMAGE | 
13¢ 1 ASHL 5 gvsie * SET MADD DRESS “BUFFER 
E1 13CC 2134 C sAeNES ma w*EXES$eL -DEFFLAGS 2 $ SINGLE jREAD IF NOT PAGING 
c3 1302 2135 SUBL3 #*X 0000 00 0,W°MMGSGL -PGDCOD2R9 NUMBER OF SYTES 
130C 21 6 Bw READ Vi ; READ NON NBAGED EXEC COD 
E9 13DF 21 BLBC $ ERR ; yee IF ERROR 
DE 13€2 138 MOVAL ROREAD WS SER Fy i W BUFFER ADDRESS 
dO 13E? 13 MOVL #<<<BUGST TRE SSAGESeS 1304 C 11 >MMGBAL +1 aaa Rd 
C1 13F0 141 ADDL3 W*SYS_STAT+STAT_L_VBN,- COMPUTE VBN FOR INI, 
1366 148 ae #<<MMGSAL "BED ConERY*KéoobobvOse~5>. R3 
30 13FA 2144 BSBW READ_VIRTUAL 3; READ EXEC IMAGE 
D4 13FD 145 CLRL W*CONEOF ENABLE ; CLOSE WINDOW ON VOLUME SWITCHES 
E8 tH gie8 BLBS RO,MOVSYSPARAM ; BRANCH IF SUCCESSFULLY READ 
; Error reading SYS.EXE = fata 
eee 108 3 E ding SYS.EXE - fatal 
1404 130 READ_SYS ERR: 
DE 1404 151 MOVAL W*BOOSGT_SYS,R1 3; APPEND ‘’SYS.EXE"'’ 
30 1409 $126 BSBW BOOSTYPE_ASCIC ; TO THE READ ERROR MESSAGE 
00 iene $127 HALT ; eeeee FATAL ERROR *e228 
1400 2155 ; EXEC inage has now been read. The correct copy of SYSPARAM 
Pe +4 5128 3; information will now be moved into the system image. 
t's 3156 MOVSYSPARAM: 
140D 2160 ; Assume the first 12 bytes of the SYSGEN parameter area is EXE$GQ_TODCBASE and 
1290 316. ; EXESGL_TODR and is not to be overwritten. 
DO 140D 18 MOVL #BOO$C_SYSPARSZ- 315° Rg : Size of SYSPARAM in bytes 
DO 1414 2164 MOVL #MMGSA~SYSPARAM+12 : Get System VA of Pa RAM 
DE 1418 2165 MOVAL W‘EXESA SYSPARANSIS. at : Address of SYSBOOT copy 
30 1633 196 BSBW MOVEHAPPED 3; Move SYSBOOT copy ieee sys copy. 
14 168 ; Move the FILSOPENFILE cache into its allocated place in non~eosed pool. 
14 169 ; If this cache was allocated space in pool, but before it could 
14 170 ; safely moved into pool, its ges were allocated and potentially 
14 171 ; written into, then we must d .able the cache here. To do that 
14 Ze ; we clear the desriptor for the FILSOPENFILE cache an 
14 173 ; tack on its size to the INILOA piece. is is assumed to be allocated 
14 174 ; just before the FILSOPENFILE cache and the size field of the INILOA 
14 175 ; descriptor is only used for deallocating the INILOA piece after INIT 
1° 178 3 3; has executed that portion of the initialization code. 
14 178 MOVE ILECACHE: 
8 14 179 mMOVQ W*BOOSGQ_FILCACHE ,R6 : R6 = size, R7 = pool address 
ranch if no cache enable 
13 1428 2180 BEQL 5$ ; B h if bled 
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235D0"CF 21AD'CF D1 142A 2181 CMPL W*BOOSGL_NEXTPFN,W*CACHE_HI_PFN ; Alloc over FILSOPENFILE cache? 
OB 18 1431 21 ¢ BGEQ es ; Branch if not 
set 7C 14 ; 1 CLRQ W*“BOOSGQ_FILCACHE ; No FILSOPENFILE cache 
| 0004 "CF 36 c9 1¢ : \3¢ ~+y 86 .W"BOOSGR_INILOA+s ; Deallocate this with INILOA 
gee te Di 14 186 2$: CMPL W“BOOSGL_NEXTPFN,= ; Alloc over the CI ucode? 
3EC*CE 144 187 W*C1_H1_PFN 
03 18 144 188 BGEQ 3$ ; Branch if not 
FRF2 = 31 eel 4 BRW BuMP_C1 ; Yes, fatal error 
| 51 2169°CF DO 144A 2191 3$: MOVL W*FIL$GQ_CACHE+4,R1 3; Physical location of cache 
O8pc 830 re § 13 BSBW MOVEMAPPED ; Move the cache 
is 13: ; If a top level system directory is in use, move its name for INIT 
216D'CF 95 145 196 5s: TSTB W*FILSGT_TOPSYS ; Is there a TOPSYS directory? 
13° 1456 2197 BEQL ; Branch if not 
OOOO'CF 216D°CF OA 28 Me $196 ' MOVC3 #10,W*FILSGT_TOPSYS,W*BOOSGT_TOPSYS ; Yes, make a copy for INIT 
1460 2200 ; 
1460 $$0) : Move the Boot Control Block to its place in non-paged pool. Finish 
1460 $0¢ : initializing it and the system disk boot driver for use in INIT. 
1460 2203 ; This boot control block contains retrieval pointer virtual to logical 
1460 2204 ; maps for SYS.EXE and SYSDUMP.DMP. After oo ing My boot control block, 
1460 2205 ; the boot driver, and its associated microcode file - if any - , are 
1460 2206 ; moved adjacent to it. The space allocated for the boot control block 
1460 2207 ; includes the space for the boot driver and the microcode. This code 
1460 2208 ; moves the 3 pieces into one area of pool. BOOSW_SIZE of the Boot 
1460 2209 ; Control Block contains the size without the boot driver. BOODRV_STAT 
1<eh Pa ; * STAT_L_BYTECNT contains the size with the boot driver and microcode. 
1460 sig MOVBOODRIVER: ; 
51 23C4°CF DO 1460 221 \MOVL W*BOOTCB,R1 3; Physical adr of boot control block 
57. _OO000'CF DO 1465 2214 MOVL W*BOOSGL _BOOTCB,R7 : Pool adr to put boot control block 
OF OOA3 CB 4200) «CET «=(146A «2215 BBC #RPBSV_NOSYSDISK, = ; If we have removed the system disk, 
1470 2216 RPBSB_FLAGS(R11),10$ ; make a single invalid map ptr for sys 
50 14 Al 51 C1 1470 2217 ADDL3 R1,BOO$L_SYS_MAP(R1),RO ; RO -> List of rtrv pointers 
60 08 DO 1475 2218 MOVL #8, (RO) ; One pointer, eight bytes long 
AO D4 1478 2219 CLRL 4(RO) ; Zero blocks in the window 
08 AO «62010 «=6CE:=s1478 $ss¢ MNEGL #1,8(RO) ; Window starts at LBN -1 ; 
14 Al. 57 CO 147F 2221 108: ADDL R7,BOOSL_SYS_MAP(R1) ; Relocate adr of virtual to logical 
1C Al DS 1483 $556 TSTL BOOSL_DMP_SIZE(R1) ,ivé¢ file is empty 
04 13 1486 22 BEQL ; then leave map address 0 
20 A1 57 CO 1488 $s¢ ADDL R7,BOOSL_DMP_MAP(R1) ; maps for SYS and SYSDUMP ? 
08 00A3 CB 400 «=F «(1480 5 208: BBS #RPBSV_NOSYSBISK, - ; If we have removed the system disk, 
1636 226 RPBSB_FLAGS(R11),30$ : «skip aejuatnents of param and bug maps 
04 A1 57 CO 149 227 ADDL R7,BOOSL_PARAM MAP(R1) ; and for SYSPARAM 
ge Al 57 CO 1496 $56 ADDL R7,BOOSL-BUG_MAP(R1) 3 and for non-resident BUGCHECK 
6 08 Al C 149A $3 30$: MOVZWL BOOSH SIZE(RT) ,R6 ; Size of BOOTCB not including boot driver 
7E = 23EO'CF §=67D 1498 3 0 mova * COBE LEN,-(SP) ; Save room for ucode file 
6746 OF 146A 31 PUSHAB (R7)CR6I ;_ save SYS virtual adr to put boot driver 
| 50  2626°CF DO 14A6 33¢ VL  W*BOODRV_STAT¢STAT_L_BYTECNT,RO ; Size of BOOTCB + boot driver 
08 Al = 50 BO 14AB 3 MOVW RO,800$W SIZE(R1) ; Set size of BOOTCB+driver+ucode 
50 gpe0" Ce C2 14AF 34 SUBL2 W*UCODE_CEN,RO ; Size of driver+BOOTCB 
0 56 (C3 1484 5 SUBL RO,-USP ; Save size of boot driver to move 
OC AE OG AE GE CT 14BB 056 ADDLS (SP) ,4(SP),12(SP) : Set sys virtual adr of ucode 
086D 0 14BE ? BSBw MOVEMAPPED : Move BOCTCB to pool 
| 


—_—— —_—_- 


C 
= VMS Secondary Bootstrap Routine 


SYSBOOT 
/ v¥06-000 Secondary Bootstrap Main Routine 


2 X/VMS Macro v04-00 
BOOTS.SRCJSYSBOOT.MAR; 1 


56 BE 7D 14C1 3 mova (SP)+,R6 3 i. = Size of boot driver to move 
| 1404 3 = SYS virtual adr to put it 
3 34 DO 14C4 40 MOVL RPBSL ponte 11),R1 3; Physical address of boot driver 
AB 57 DO 14CB 2241 MOVL R7,RPBSL_IOVEC(R (att) ; Set new SYS virtual adr of boot driver 
58 HH be 14CC 4 MOVL ; Save it away for later 
085C¢ 0 16CF 4 BSBW MOVEMAPPED ; Move the boot driver adjacent to BOOTCB 
QOOO'CF DO 14D2 ak MOVL W“MMGSGL_SPTBASE ,- ; Set SPT virtual address as 
| 50 AB 14D6 45 wrest. SVASPT(R11) $ adr of SYS page table for BOOTDRIVR 
56 BE) |= 7D «(1408 «24 mova (SP)+7R6 ; R6 = Size of ucode to move 
1408 & 3; R? = SYS virtual adr to put it 
| 51 23€4'CF 00 14DB 48 MOVL W*UCODE_ADR,R1 3 Teetisel address of ucode 
1 13° 14E 49 BEQL 40$ ; There isn't any 
OUOO'CF 5 Be 14E 50 MOVL R7 wu nooset _UCODE 3; Stuff the virtual adr away 
844 Q 14€ 51 BSBW MOVEMA : Move the ucode adjacent to boot driver 
08 239C ‘CF Bl 14EA 26 CMP W*VMB AVERSION, #8 3; If the version is >= 8 
OF 1f 146EF 5 BLSSU 3; then update the cell 
51 QOO0°CF DE 14F1 54 MOVAL W*BOOSGL_UCODE.R1 ; Pick up physical addr of cell w/VA 
6 06 pO 14F6 55 MOVL ; 4 bytes to move 
57 28 AB DE 14F9 2256 MOVAL BQOSL eas). R7 ; VA of where to stick it 
O82E 30 14Fb 2257 BSBW MOVEMAPP 3: Move the VA 
1500 2258 408: 
1500 2259 : 
1500 2260 ; Move the copy of ———_ that SYSBOOT has filled with data 
1500 2261 : into INIT’s copy of BOOPARAM. 
1500 $56¢ . 
1500 2263 MOVBOOPAMAM: 
56 00000000 * 8F DO 1500 ye MOVL #BOO$C_BOOPARSZ,R6 ; Size of BOOPARAM in bytes 
57 Q00000000°8F DO 1507 2265 MOVE #EXESA-BOOPARAM,R7 ; Get System VA of BOOPARAM 
51 0000'CF E 1306 2266 MUVAL W*BOO$A BOOPARAM,R1 : Address of SYSBOOT copy 
0 1aiz $sor BSBw MOVEMAPPED 3; Move SYSBOUT copy into SYS copy. 
1318 $599 3; Now locate INIT and transfer control to it 
53 FFCOOOO0'SF DO 1516 2271 MOVL #<<EXE$INIT-*X80000000>a~ 9>,R3 ai VPN OF WIT 
50 O000'DF43 DO 151D 272 MOVL au“ RMGSGL SBRIR GET P HYSICAL PAGE_N JMBER 
50 15 00 EF 1523 227 EXTZV tin PFA, #PTESS_ *PEN, RO. RS TsocAte PFN AND SAVE IN R3 
50. 53) (09) 78 «1528 «¢274 ASHL so : CONVERT TO PHYS ADDRESS 
51 —00000000°8F D0 13e¢ co75 MOVL PEXESINIT, R1 > VIRTUAL ADDRESS OF INIT 
50 09 00 51 FO 1533 2276 INSV R1,40,#9, 3; INSERT BYTE OFFSET TO GET PHYSICAL 
OC O000°CF DA 1538 277 MTPR  W*MMGSGLSBR.# : SET SYSTEM BASE REG ISTER 
OD 0000°CF DA 153D 278 MTPR W*MMGSGL~ ~SPTLEN. wth SLR; AND LENGTH REGISTER 
2¢ co 1348 2279 ADDL 4 oR : PO A NGTH=PFN+1+1 
09 5 DA 154 280 MTPR -#PR SET PO ing TO ae OF EXESINIT 
52 80000000'°8F 50 3 1548 34 SUBL3 nO, i. XESINIT~*x800000005, i > DELTA PFN-VPN 
52. 52 F7 BF B 1550 8¢ ASHL R rt TO PAGE COUNT 
51 0000'DF42 DE 1555 28 MOVAL Su-ameéer SPTBASECR2), R1: CORPUTE BASE F 
08 51 DA 1558 284 MTPR R1,#PRS_ POBR ; AND SET AS Basee REGISTER 
| 155— 2285 INVALID > INVALIDATE TRANSLATION BUFFER 
60 17 136} $o¢ JMP (RO) ; TRANSFER TO INIT 
1288 288 s RO = PHYSICAL ADDRESS OF EXESINIT 
156 89 ; R1 = ** UNDEFINED *« 
1563 290 ;: R2 = ## UNDEFINED oe 
1563 91; R35 = ** UNDEFINED ** 
1563 35 2 R4 = ** UNDEFINED ** 
1263 93; RS = ** UNDEFINED ** 
156 94; R6 = ** UNDEFINED *e* 
| 
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| 156 95; R7 = #* UNDEFINED #* 

156 96: RB = ** UNDEFINED ee 
156 97 ; R9 = #* UNDEFINED ee 

156 38 $ R10 = *® UNDEFINED ** 
156 99 ; R11 = PHYSICAL ADDRESS OF RESTART PARAMETER BLOCK (RPB) 
| 156 00 ; AP = #® UNDEFINED 

156 4 3 FP = #* UNDEFINED ee 
| 126 ¢ 3 SP = PHYSICAL ADDRESS OF A 3 PAGE STACK 

156 03 ; PR$_SBR/PRS$_SLR = SET TO DESCRIBE SPT 
| 126 Oe ; PRS$_POBR/PRS_POLR = SET TO MAP EXESINIT VIRTUAL = REAL 
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Secondar 
| ADD MEMORY DESCRIPTORS TO RPB 4=SEP=1984 23:06:42 [BOOTS.SRCJSYSBOOT.MAR;1 (4) 
| 156 07 By .SBTTL ADD MEMORY DESCRIPTORS TO RPB 
| 136 03 ; FUNCTIONAL DESCRIPTION: 
136 11: THIS ROUTINE IS EXECUTED OR NOT DEPENDING UPON WHAT VERSION OF 
156 ig : VMB BUILT THE RESTART PARAME T TER BLOCK. VERSION 1 AND 2 OF VMB 
156 13: DO NOT INCLUDE THE PAGE COU AND BASE PFN TO DESCRIBE 
156 14: EMORY ON THE SYSTEM. NvéRS 3 AND SUBSEQUENT VERSIONS INCLUDE 
156 15 : THIS INFORMATION. THIS TWF ORMATION is USED BY BUG CHECK IN DUMPING 
156 1 : MORY TO THE SYSTEM DUMP FILE. THIS ROUTINE ADDS A MEMORY 
156 17 ; DESCRIPTOR TO THE RPB. THIS DESCRIPTOR IS BUILT USING THE 
156 18: ASSUMPTIONS THAT PRE-RELEASE 2.0 BUG CHECKS USED 
1563 2319 : MEMORY STARTS AT PFN 0 AND IS BOUNDED AT THE Ue FreR END ‘or THE 
1363 320 : SYSTEM PAGE TABLE. 
1363 2393 ; CALLING SEQUENCE: 
1363 $394 ; BSBW ADD_RPB_MEMDSC 
1363 2396 : INPUT PARAMETERS: 
1363 3328 : R11 = ADR OF REBOO’ PARAMETER BLOCK 
1363 3380 > QUTPUT PARAMETERS: 
1265 See : ae 
1363 a334 : IMPLICIT INPUTS: 
1363 2336 : PR$_SBR AND PRSSLR ARE USED TO DETERMINE THE SIZE OF MEMORY. 
1363 3338 : IMPLICIT OUTPUTS: 
363 $ae0 we 
1363 342 > COMPLETION CODES: 
a) on; 
1363 3346 > SIDE EFFECTS: 
1563 sack : A MEMORY DESCRIPTOR IS ADDED TO THE RPB IF ONE IS NOT INCLUDED. 
1h 380 
1363 32 ADD_RPB_MEMDSC: 
3F 6 BB O1563 33¢ PUSHR #*M<RO,R1,R2.R3,R4,R5> =; SAVE REGISTERS 
54 00BC (CB 9E 1565 235 MOVAB RPBSL_MEMDSC(R11),R4 : GET ADR OF FIRST MEMORY DESCRIPTOR 
53 OC DB 156A 2354 MFPR #PRS_SBR,R3 + GET PHYSICAL ADR OF SYS PAGE TBL 
52 OD 0B 156D 2355 MFPR = #PRS™ SLR. : GET LENGTH OF SPT IN BYTES 
52 6342 «=~DE «1570 36 MOVAL (R3)CROJ.R : GET # OF BYTES OF MEMO 
84 52. £7 8F 78 1574 235 ASHL #-9,R2,(R4)+ ; SET # OF PAGES (NO TR #) INTO MEMDSC 
64 0049 8F 00 68 00 2¢€ 1579 2358 MOVCS #0,(R11),#0, SET THE BASE PFN TO 0 AND FILL THE 
1581 359 #<<RPBSC *LENGTH-RPBSL_MEMDSC>-4>.(R4) : OTHER MEMDSC'S WITH O'S 
3F BA 1381 360 POPR #*M<ROLRT, Re, R3,R4-R5S ; RESTORE REGISTERS 
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v04 IMAGE_OPEN = Look up image file 4-SEP-19 :06:42 (CBOOTS.SRCJSYSBOOT.MAR;1 
1384 e -SBTTL IMAGE_OPEN = Look up image file 
1584 65 ; Input pereneters: 
1584 66 ; = Statistics block for file te pen 
138% of : STAT_L_NAME(R2) = base relative adr of ASCIC f ite name 
1584 9 ; Output eoreereeres 
1584 0; 
1584 71; Ri = Address of file header buffer 
1584 2372 ; R7,R8,R9 altered 
1584 73; R2-R5 proseryee 
1584 74; STAT_L_M ) a Bete to aep virtual block to logical block 
128% Pi : STAT_L “BY TECAT(R2) = Size of file in bytes 
1584 5377 {MAGE _OPEN: 
51 OC A2 23A0°CF C1 1584 78 ADDL3 w*SYSBOOT BASE ,STAT_L -NAME(R2), R1 ; Address of ASCIC name string 
50 81 9A 1588 $30) MOVZBL (R1)+,RO ~ ; RO = size, R1 = address 
7E 50 7D 158€ 2380 MOVQ RO, -(§P) ; Save file name descriptor 
57 SE od0O 1591 Seg. MOVL SP, ; Address of file name descriptor 
59 23B4°CF DE 1594 $66 MOVAL W*RTRV_BUF _DSC,R9 ; Address of rtrv ptr buffer Sencrtntes 
50 69 7D 1599 $38 MOVQ (RO) ,RO ; RO = size, R1 = address of buffer 
0c 50 01 159¢ 2384 CMPL RO, rhe ; At least 3 Long words required 
159F 2385 ; to express a contiguous ile 
29 19 159F 2386 BLSS 110$ ; Branch if out of space, fatal 
58 81 DE 15A1 2387 MOVAL (R1)+,R8 ; RB = Loc to store byte count returned 
15A4 2388 > RI =R1 + & 
68 046 CE 15A4 2389 MNEGL #4,(R8) : Sate count returned for error path 
50 04 C2 15A7 2390 SUBL #4,R ; Account for byte count long word 
69 50 7D 15AA $30, MOVQ RO, (RI) : ota and address of buffer 
15AD 4 : ore retrieval pointers in 
0119 30 15AD 39 BSBW FILOPEN ; Cott *Pitsop ENF ILE 
5E 08 CO 1580 2394 ADDL ; Clean off name descriptor 
89 68 C2 1583 2395 SUBL (RB), (R9)+ 3; Allocate retrieval pointers used 
12 19 1586 2396 BLSS 11 ; Branch if not enous space 
69 68 CO 1588 2397 ADDL (RB), (RI) : update next availa le address 
0B 50 «#€9 1588 2398 BLBC bytecat © error 
04 A2 21B9'CF 09 78 1205 2399 ASHL #9. W*BOOSGQ STATBLK+4, start t BYTE NT(R2) ; Bee of file in bytes 
A2 58 D0 15€5 2400 MOVL RB, STAT_ L_MAP(R2) ; Save adr of virtual to logical ma 
05 1308 tt 20$: RSB ; Otherwise return with status in R 
15CA st08 : Not enough space for retrieval pointers, the boot time files were 
15CA sibe 3 : far more fragmented than was planned for. Only SYS.EXE is big 
15CA 2405 : enough to cause such a problem. All the drivers are so small that 
136A 3107 : a few pointers each is adequate. 
15CA 2408 i108: MSG <-F=-Boot time files have too nony non-contiguous pieces> 
00 1604 2409 HALT ; *eeee Fatal error ***t* 
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= VMS Secondary Bootstrap Routine 1 
IMAGE_INIT = Look up and start read of i 
-SBTTL IMAGE_INIT 


i 


DW DW COOMA 


r 
al L 
1 411 
1 tig 
1 41 
1 414 
1 415 
1 $18 
1 41 
1 418 
1 419 
1 420 RO,R1,R3,R4,R7,RB,R9 altered 
1 421 R2,R5 preserved 
1 4 ¢ R6 = 
1 4 STAT_L_MAP(R2) = Data to ma 
1 424 STAT-L-VBN(R2) = 
‘ 2 STAT_L~VBNZADR(R2) 
1 427 {MAGE_INIT: 
30 1 428 BSBW IMAGE _OPEN 3 
£9 : £$3 BLBC RO,908 ; 
1 siz, ; Read 2 blocks on the assumption that the image header will only take 
1on8 $t38 3; up the first block. This is essentially always correct. 
C1 1608 2434 ADDL3 W*VBN2_BUF _DSC,W*VBN2_BUF _DS 
1613 2435 3: b 
1613 2436 3 
9E 1613 2437 MOVAB -1024(R6),R6 : Back off 2 
1618 st38 3 
C2 1618 2439 SUBL §#512,W*VBN2_BUF _DSC ; 
9C 169! 2440 ROTL #9,#2,R9 : 
DO 1625 2441 MOVL * : 
DO 1628 ek MOVL STAT_L_MAP(R2) ,R4 $ 
30 162C 244 BSBW READ- VIRTUAL 3 
E9 lect 2444 BLBC . : 
9A 1632 2445 MOVZBL IHDSB_HDRBLKCNT(R6),R3 ; 
D6 1636 2446 INCL R3 : 
DO 1638 rt! OVL R3,STAT_L_VBN(R2) : 
9E 1638 2448 MOVAB 512(R6)7RE : 
Di 1640 2449 CMPL R3,42 : 
13 1643 2450 BEQL § =_- 208 ; 
1645 2451 ; ; 
+ of stes ; Lost a good bet, now read one block after the image header blocks 
9C 1645 454 ROTL #9, #1,R9 g 
30 1649 2455 BSBW READ_VIRTUAL ; 
E9 164C 2456 BLBC RO, $ 
DO 164F 2457 208:  MOVL  R6,STAT_L_VBN2ADR(R2)_ ; 
05 1653 2458 B 
1654 2459; ; 5 
1654 2460 ; Failed to open file 
1654 2461 : , 
1654 46¢ $0$: MSG <-E-Unable to locate file > 
1671 2464 ; Error opening or reading the file, error message already given, 
ier! £32 3; add on the file name to complete the diagnostic 
C1 1671 2467 100$:  ADDL3 


: Input paresis 


STAT_L_NAME (R2) 


; Output parameters: 


eturns to caller 


6-SEP- 
4-SEP 
-L 


Statistics block for 
base relative adr of 


=1986 25: 
k 


11:37 
06:42 


AX/VMS Ma 


file to op 
ASCIC file 


only if successful. 


On errors pf gts diagnostic and halts 


ro V04-00 


BOOTS. SRCJSYSBOOT.MAR;1. 
up and start read of image file 


en 
name 


Adr of first block read in past image header 


t virtual block to logica 
oy VBN in image after image header block(s) 


block 


Page 46 
. (4) 


dress of ist block after image header block(s) 


Open the fil 


ile 
Branch if failed to find file 


page 
header, 2nd is 
Record another 
Set to read 2 V 


C+4,R6 ; Adr of Last+1 byte of. 
lock buffer for reading and saving 
the 1st block after image header 
first is image 


age used 
BN's 


Starting with VBN 1 


Adr of virtual 
Read the desire 
Branch if read 
Get # header bl 
Starting VBN of 
Save for readin 
Address of VBN 
One image heade 
Branch if yes, 


to Logical map 
s 


d VBN 
error 
ks 
image 
3 image later 


r block? 
the norm 


Set up to read one block 


Read the desired 


VBN 


Branch if read error 


Note where VBN2 


was read 


first block after 


W*SYSBOOT_BASE,STAT_L_NAME(R2).R1 ; Address of ASCIC file name 


—————_-——.-------  - 


H 
VOL O00 Imkce HaiPreNCySBOCESETEP outings of 1 '-SEP=19Be D8:00:%2 EBooressnessvsbooTomar;1 P29" 47, 
0756 1 4 esey BOOSTYPE_ASCIC :; Type the name 
8 1858 5188 HALT 3 *eeee Fatal Error eeeee 


a ere a od 


area 
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| SYSBOOT - VMS Secondary Bootstrap Routine 16-SEP-1984 00:11:37 VAX/VMS Macro v04-00 Page 48 
v04-000 BOOSFILOPEN = Lookup a specified file 64-SEP-1984 3 bosa3 BOOTS.SRCJSYSBOOT.MAR; 1 " (4) 
1ore 4 -SBTTL BOOSFILOPEN = Lookup a specified file 
167C 238 3; Input pyrenecerss , 
| ere 47% ; R7 = Address of file name descriptor 
1e5¢ 278 ; Output Parameters: : , 
167C 2677 ; RO = Status, if_error, message (without file name) already typed 
167C 2478 ; RB - Starting LBN of file 
+ 243 rh 4 3 R9 = Size of file in blocks 
167C 2481 BOOSFILOPEN: : ; File open Routine 
58 7C 167C 24 ¢ CLRQ R8 ; No retrieval pointer info needed 
49 10 167E 24 BSBB FILOPEN ; Call FILSOPENFILE 
1F 50 E8 1680 2484 BLBS RO,10$ _¢ Branch if successful 
1683 2485 MSG <-E-Unable to locate file > ; Report the failure 
24 11 16A0 2486 BRB 
58 21B5'CF 7D 16A2 2487 10S: MOVQ W*BOO$GQ_STATBLK ,R8 ; Get file statistics, LBN/Size in blocks 
58 D5 16A7 tt TSTL R8 ; Check for contiguous 
1D 12 16A9 2489 BNEQ 30$ : ; Yes, continue 
16AB 2490 MSG <-E-File not contiguous > ; Give error 
50 D4 16C6 2491 20$: CLRL RO ; Indicate error 
05 16C8 $138 0$: RSB ; Return to caller 
16C9 2493 ; 
16C9 2494 ; Inputs : 
16C9 2495 ; 7 - Address of file name descriptor ; 
16C9 2496 ; R8 - Address to return byte of retrieval pointer data stored 
16C9 2497 ; 0 if not use ‘ 
16C9 2498 ; R9 - Address of descriptor of retrieval pointer buffer 
16C9 2499 ; 0 if not used 
16C9 2500 ; 
16C9 $20) 3; Outputs: 
169 308 ; RO - Status 7 
16C9 2503 ; Ri - Address of file header buffer 
16C9 $20e ; ALL other Cepieners preserved 2 : ‘ 
16C9 2505 ; BOO$GQ_STATBLK = Starting LBN if contiguous, 0 if not 
16C9 2506 ; BOOSGQ_STATBLK + 4 = Size of file in blocks 
16C9 2507 
16C9 2508 FILOPEN: 
50 7E DE 16C9 2509 MOVAL =-(SP),RO ; Save pointer to phony channel 
7E 58 7D 16CC 2510 MOVQ R8,-(SP) ; Push adr of rtrv buf descriptor 
16CF 2511 ; Push adr to return byte count stored 
21B5°CF 7F 16CF s21§ PUSHAQ W*BOO$GQ_STATBLK ; Address of file statistics block 
2198°CF DD 1603 251 PUSH W*“BOOSGL_FREEMEM ; file header buffer 
7E 6€ 00000200 8F C1 16D7 2514 ADDLS #512,(SP),-(SP) : Index file header buffer | 
67 OF 16DF 2515 PUSHAL (R7) ; Address of file name descriptor 
60 DF 16€1 2516 PUSHAL (RO) ; Address of phony channel 
QOOOO'CF O7 FB 16€3 2517 CALLS #7,W*FILSOPENFILE ; Call FILEREAD to locate file 
51 2198°CF DO 1668 2518 MOVL W*BOOSGL_FREEMEM,R1 ; Return address of file header 
5E 04 16ED $23) ADDL2 #4,SP :; Clean off phony channel 
16F0 2520 SB : and return 


on 
wo 
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SYSBOOT - VMS Secondary Soetatres Routine 16-SEP-1984 OO ze AX/VMS Macro V04-00 Page 49 
v04-000 ALLOCPFN = Allocate physical page 4-SEP=1984 25:06:42 (CBOOTS.SRCJSYSBOOT.MAR;1. (4) 
16! : § -SBTTL ALLOCPFN = Allocate physical page 
16F1 524 ; Output poresssers’ 
16F1 2525 ; RO - PFN of allocated page 
16F1 25 § . 
16F1 2527 ALLOCPFN: : 
50 21AD'CF DO 16F1 2528 MOV W*BOOSGL_NEXTPFN,RO ; Get PFN to start scan 
09 iF; A 529 BNEQ 20$ : Branch if not null 
50 44 AB 03 78 16F 530 10$: ASHL #3,RPBSQ_PFNMAP(R11),RO ; Else start at end of map 
50 D7 16FD 23] 15$: DECL RO : Next/first PFN 
ef 15 16FF 25 ¢ BLEQ 30$ : Branch if none left 
F7 48 BB 0 Ee 1701 23 20$: BBCC RO, @RPBSOQ_PFNMAP+4(R11),15$ ; Allocate it if possible 
21AD'CF 50 01 C3 1706 2534 SUBL3 #1,RO,W*BOOSGL_NEXTPFN ; Save pointer for next time 
4C AB 07 170C 2535 ECL RPBSL.PFNCNT(RT1 : Account for page removed 
2304°CF 50 D1 170F 2536 CMPL RO,W*PFNMAP_HI_PFN ; Ran into PFN bitmap? 
03 1A 17146 2537 BGTRU § 
FIAD 31 1716 2538 BRW PHYP_ER 3: Branch if yes 
23D0'CF 50 D1 1719 539 22$: CMPL RO W*CACHE_HI_PFN 3; Ran into FILSOPENFILE cache? 
08 i4 I71E $ee9 BGTR 25 ; Branch if not 
2165'°CF 7C 1720 541 CLRQ W*F IL$GQ_CACHE 3; Yes, disable it 
23D0°CF D4 1726 348 CLRL  W*CACHE_AI_PFN 
23EC'CF 50 D1 1728 2543 25$: CMPL RO,W*CI_HI_PFN ; Ran into CI microcode? 
28 «1B 1720 544 BLEGU 40$ > Yes 
05 172F $202 RSB ; and return 
1730 2546 30$: MSG <-F-Unable to allocate physical aeaeree 
00 1759 2547 HALT 3 *ee FATAL ERROR *ee* 
FSDS «=631« 175A «2548 40S BRW BUMP_CI 
175D 2549 ; } = 
175D 2550 ; Functional Description: La : ; 
175D 2551 ; DALLOCPFN marks the specified page available in the PFN bitmap 
175D $226 3 but does not reposition the scan pointer. 
175D 2553; 
175D $22¢ ; bolt iog Sequence: 
175D 555 : SBW DALLOCPFN 
175D 2556 ; Input Parameters: 
175D 2557; RO - PFN 
175D 2558 ; 
1750 2559 BALLOCPFN: ; Deallocate pfn 
00 48 BB 50 €E2 175D 2560 BBSS RO, @RPBS$Q_PFNMAP+4(R11),10$ ; Mark it available 
05 1786 $26} 10$: RSB 3; And return 
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04-000 MOVE BITHAP © dose the PEN Dit mop if PH SnSEP-19R6 Soidoias Leoore sReisvsbooremar;1 2% 22, 


-SBTTL MOVE_BITMAP = move the PFN bit map if PHYSICAL PAGES reduced 


wr 
oO 
rs 


++ 

Functional Description: : 
An attempt is made to either move the PFN bitmap to the preallocated 
small bit map or if that fails, to unused physical memory. 


Inputs: 
RO = Highest page represented in current bitmap 
Ri - Base of current pine | ; 
R3 = Required size of new bit map (bits) 


Outputs: : 
RO => highest page for new bitmap 
R1 => New base of bitmap 
all otherregisters preserved 


PSD HS OOOO DO OW I NIIP PAA AAA AA AA AA AA AAA AA AAA O 
WONAU EWN 0 OO NA UE WW @ O ODNAUE WN OOONOM 


3 
3 
3 
3 
3 
? 
5 
9 
0 
6 
8 
8 
0 
5 
7 
A 
D 
F 
1 
5 
7 


SSL SSS SSS 
re eae al cab Ab Ab Ab AL AL AD AL AL AL AL AL AL AD Ab AD Ab Ab Ab Ab Ab bec bed bed bed bed bed techbedhbedhb=dub-dub-dhb=dhbcdel 
DOSS 000000000 O00 000000 09 09 090900 SIN NI NIN SINS NSIS OOOO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
) 
1 MOVE_BITMAP: 
007C 8F BB 1 2 PUSHR #*M<R2,R3,R4,R5,R6> ; Get some scratch registers 
3% SS FO fe 1 § ASHL #-3,R3,R6 : Full bytes to copy from current bitmap 
56 «(6 INCL R ; One more for last byte 
235D8'CF 56 0d1 1 2 CMPL R6 ,W* SMALL _PFNMAP 3; Can it hold everything we intend to use 
13, «1A 1 2 BGTRU 108 ; No 
48 BB 56 2C 1 2 MOVCS R6,@RPBS$Q_PFNMAP+4(R11),- ; pe the bitmap 
23DC'DF 23D8'CF 00 1 2 #0,W*SMALC_PFNMAP,aW*SMALL _PFNMAP+4 
44 AB 23D8'CF 7D 1 2 MOVQ W*SMALL_PFAMAP ,RPBSQ_PFNMAP(R11) ; Use the small bitmap 
34 O11 : 2 BRB 50$ 
55 53 00001000 8F C1 1 ; 10s: ADDL3 #4096,R3,R5 ; Round up the bit map pages needed 
> 3 roe Te 1 ASHL #-12,R5,R5 ; Make it pages 
54 D4 1 2 208: CLRL R4 ; Count of contiguous pages found 
- 2 we 2 MOVL R3,R2 ; Save base page 
~~ 2 2 30$: PL R3,RO ; Time to give up? é 
oo. oe 2 BGEGU 60$ 3 Yes - not enough contiguous pages 
53 D6 1 2600 INCL R3 ; Next page ; 
FO 61 «=©653)—COiEss1 2601 BBC R3,(R1),20$ : Is page good - no - start again 
54 D6 1 2 § INCL R4 ; One more 
55 54 D1 1 CMPL R4,R5 3; Found enough? 
EE 19 17AA 2604 BLSS og : No - try for more 
52 52 09 78 17AC 2605 ASHL #9,R2,R2 ; Base of new bitmap 
48 AB 52 DO 1780 2606 MOVL R2,RPBSQ_PFNMAP+4(R11) ; . 
44 AB 56 DO 1784 2607 MOVL R6,RPBS$Q-PFNMAP(R11) ; New size of bitmap 
62 61 56 2 1738 one MOVC3 R6,(R1),TR2) ; Copy the bitmap 
23D4'CF D4 17BC 2610 508: CLRL W*PFNMAP_HI_PFN : No longer need to check for conflicts 
007C 8F BA 17CO 2611 60$:  POPR #*M<R2,R3,R5,R5,R6> 
23cc"cF 53 0 174 o1¢ MOVL R3,W°MEM HI _PFN ; Forget about discarded pages 
50 44 AB 7D 1769 261 MOVG RPBSQ_PFAMAP(R11),RO  ; New base and Limit 
50 08 C4& 17CD 2614 MULL #8,RO 
05 1700 2615 RSB 
1701 2616 
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SYSBOOT = VMS y Bootstrap Routine 16-SEP-1984 ad! AX/VMS Macro Vv04-00 Page 51 
v04-000 ad the code from the speci 4-SEP-1984 :06:42 (CBOOTS.SRCJSYSBOOT.MAR;1 (4) 


-SBTTL LOAD_CODE = load the code from the specified file 


o 
° 

‘> 
a 


++ 

Functional Description: 
Given a statistics block for a file, load the file into pool 
The first block after the smoge header was previously read 
in to determine the size of the image. This buffer was 
saved to avoid reading it again. Move this page and 
read the rest. 


Inputs: 
STAT_L_VBNZADR(R2) 


STAT_L_VBN(R2) 
STAT-L-BYTECNT (R2) 
STAT-L-MAP(R2) 


Address of ist block after image header 

It was already read in, just move this page 
Starting virtual block number to read 
Number of bytes in image 

Mapping information to map VBN to LBN 


STAT_L_SYSVA(R2) Base relative address of pool address 
STAT_L_NAME (R2) Base relative address of name for error msg 
Outputs: 


Returns in Line only if successful 
Types Ctagnoss te and halts if error 
RO,R1,R3,R4,R6,R9 altered 

ALC other registers preserved 


atatmiaadadutadabadadudabababaiababababaubsiabuabaeabahbabababiuabebebababababuaiciahaiahaiabababaiababah 
MWD FLWOM DP ONN 0 O POW™S OUI NW 2 oe 


7 oe 
LOAD_CODE: 
57 DD 64 PUSHL R 
1.14 A200 64 MOVL STAT_L_VBN2ADR(R2),R1  ; Adr_of ist block after image hdr 
57 O08 A2 23A0°CF (C1 647 ADDL3 wW*SYSBOOT_BASE,STAT_L_SYSVA(R2),R7 ; Adr of pool adr for image 
57 67 00 648 MOVL (R7) ,R7 ; Adr in pool to move ist page of image 
0200 C7. OF 649 PUSHAB 512(R7) ; Adr in pool to read into 
ao FF OO 650 ROTL #9,#1,R6 ; Move 1 page or less 
04 A2 56 ODI 651 CMPL R6,STAT_L_BYTECNT(R2) ; Image less than a page? 
046 «#15 636 BLEQ 10 ; Branch if not 
56 04 A2 00 65 MOVL STAT_L_BYTECNT(R2),R6 =; Yes, use the image size 
59 04 A2 56 (C3 17 654 10$: SUBL3 R6,STAT_L_BYTECNT(R2),.R9 ; Byte count left to be read 
34 BB 17 655 PUSHR #*M<R2,R4,R5> 
0531 30 17 656 SBW = MOVEMAPPED ; Move the 1st image block after the 
7F 657 3: image hdr, avoid reading it again 
OOF4 8F BA 17F 658 POPR #*M<R2,R4,RS,R6O,R7> ; R6 = Adr to read into 
53 62 01 (C1 1801 2659 ADDL3 #1,STAT_L_VBN(R2),R3 =; Starting VBN to read 
59 D5 180 660 TSTL RY ; Anything left to read? 
01 14 3 661 BGTR 208 ; Branch if yes 
05 0 606 RSB ; Move was all that was needed 
54 10 A2 DO 180 665 20$: MOVL STAT_L_MAP(R2) ,R& ; Adr of virtual to logical map 
7D 10 180€ 2664 BSBB) ss READ" VTRTUAL ; Read the specified VEN's 
01 50 3 3 944 BLBC RO, 308 : Branch if failed to read them 
51 OC A2 23A0'CF ci 81 667 308: ADDL3 W*SYSBOOT_BASE,STAT_L_NAME(R2),R1 ; Adr of ASCIC file name 
0583 0 181 668 BSBW BOOSTYPE_ASCIC : Append the file name to error msg 
00 181 669 HALT 3 *eeee Fatal Error steee 
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SYSBOOT - VMS Secondar SEP=1984 00:11:37 VAX/VMS Macro v04-00 Page 52 
v04-000 BOOSSETMAP - Set up Virtual to Logical M ate SUE BOOTS .SRCJSYSBOOT.MAR; 1 . (4) 
} $7) -SBTTL BOOSSETMAP = Set up Virtual to Logical Map 
181F or¢ ; Functional Description: 
181F 2674 ; This routine produces a virtual to logical map for a specified 
181F 2675 ; virtual segment of a file. Give a desired virtual block and 
181F ore : block count and a map of the file, it produces a new map for 
181F 2677 ; just that segment. 
181F 2678 ; 
181F 2679 ; Cah ne Sequence: 
ieir 680 5; SBW BOOSSE TMAP 
181F es : Inputs: 
ne 6 g ; R3 = Desired VBN 
181F 2684 ; R4 = Virtual to logical map 
181F 2685 ; R5 = Desired number of blocks to map F 
181F 2686 ; R6 = Size in eytes of region to store the map being created 
+ Hf ets 3 R7 = Address of region to store the map being created 
181F 2689 ; Outputs: 
181F 2690 ; RO,R1,R2,R3,R5 altered 
181F 663) 3 R4 preserves 
181F 636 $ R6,R7 updated to reflect space used 
181F 2693; others preserved 
181F 694 :-- 
181F 2695 BOOSSETMAP: 
54 DD 181F 2696 PUSHL R4 : Save input map 
87 ~=ODF 1831 509% PUSHAL (R7)+ 3; Save Adr of output byte count 
1823 2698 ; R7 points to first rtrv ptr to store 
28 10 1823 2699 BSBB BOOSMAPVBN ; Find starting LBN 
50 05 1825 2700 TSTL RO ; If EOF, then done 
16 13 1827 2701 BEQL 60$ 
55 50 D1 1829 re 20$: CMPL RO,RS5 ; More block mapped than needed? 
03 15 182¢ 270 BLEQ } © 408 ; Branch if aot 
50 55 00 ieee 704 MOVL R5,R0 ; Yes, just use what is needed 
87 50 7D 1831 705 40$: MOVQ RO, (R7)+ 3; Store this retrieval pointer 
55 50 C2 1834 2706 SUBL RO,R5 3; Count blocks mapped 
06 15 1837 2707 BLEQ ; Branch if all done 
50 84 7D 1839 2708 MOva (R4)+,R0 ; Get next retrieval pointer 
EA 52 F5 183C 2709 SOBGTR R2,20$ : If there are any more 
14 BA 183F 2710 608: POPR #*M<R2,R4> : R2 = Adr of byte count field 
1841 2711 ; R4 = saved input map 
50 57 52 C3 1841 ay SUBL3 R2,R7,R0 ; No. of bytes used ans 
56 650 CS 1845 271 SUBL oR ; Adjust size of buffer reseiaing 
62 50 04 ce Hb 4 ne suet #4,R0,(R2) :; No. of bytes of retrieval pointers 
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04-000 BOOSMAPVBN - Map Virtual to Logical Bloc raat 38 doe BOOTS .SRCJSYSBOOT.MAR; 1 . (4) 
184D 2717 -SBTTL BOOSMAPVBN = Map Virtual to Logical Block 
184D re p++ 
184D 2719 ; Functional Description: 
! re 4 y § Map the specified virtual block to its associated logical block 
184D 2722 : Calling Sequence: 
184D 27 : 3 BsBu. BOOSMAPVBN 
1840 2724; 
1840 2725 ; Inputs: 
184D 27 § 3 R3 = Virtual Block Number : 
1840 2727 ; R4 = Address of virtual to logical map ; 
Ht 944 7 8 ; # of bytes of retrieval pointers following 
184D 2729 ; count of LBN’s in first rtrv ptr 
1840 2730 ; starting LBN in first rtrv ptr 
1840 2731; count of LBN's in second rtrv ptr 
184D 27 ¢ g starting LBN in second rtrv ptr 
184D 2733; 
184D 2734; aun 
184D 2735 ; 
184D P38 : count of LBN's in (ast rtrv ptr 
1840 2737; starting LBN in Last rtrv ptr 
184D 2738; 
184D 2739 ; Outputs: : 
184D 2740 ; RO = Number of contiguous blocks starting at LBN in R1 
184D 2741 ; Ri = Starting LBN for the specified VBN ; 
184D sits ; Re = number of retrieval pointers (quad words) not yet used in the map 
184D 2743 ; R3 = VBN preserved ; 
184D 2744 ; R4 = pointer to first retrieval pointer not yet used in map 
184D 2745 ; all other registers preserved 
184D 2746 ;-- 
184D 2747 BOOSMAPVBN: 
53 DD 1840 2748 PUSHL R3 3; Save desired VBN 
52. 84) «CO FD BF 78s 184F «962749 ASHL #-3,(R4)+,R2 ; Get count of quad words ; 
1854 2750 3; Point at first retrieval pointer 
50 84 7D 1854 2751 10$: MOVQ (R4)+,RO0 ; RO = block count, R1 = 
50 53 D1 1857 $F26 CMPL R3,R0 ; Desired VBN in this rtrv ptr? 
OA 15 185A 275 BLEQ 208 > Branch if yes 
ww t2 test sie SUBL RO,R3 ; Pass over that many VBN's| 
F2 52 £5 185F $2 SOBGTR R2,10$ ; Try the next retrieval pointer 
50 7C 1862 2756 CLRQ RO ; EOF, no blocks mapped 
08 11 1864 2757 BRB 30$ 
53 D7 1866 2758 208: DECL R3 3; Make VBN base 0 
50 53 C2 1868 2759 SUBL R3,R0 ; No. of blocks ieft | 
51 53 CO 1868 2760 ADDL R3,R1 ; Starting LBN for desired VBN 
08 BA 186€ 2761 30$: POPR #*M<R3> 3; Recover desired VBN 
05 1870 2762 RSB 
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ILE = Routine to read specified 4=-SEP-1984 :06:42 ([CBOOTS.SRCJSYSBOOT.MAR;1 | (4) 

be: 2 -SBTTL BOOSREADFILE = Routine to read specified piece of file 

3 + 

766 ; Functional Description: we 4 ; 

4a : BOOSREADFILE reads the specified piece of the file 

£6? : omg *~ Sequence 

ag 3 BOOSREADF ILE 

ae ; Inputs: 

13 R6 - Buffer address (updated) 

774 ; - - Logical block number Capenaees 

ae ; - Blocks in file (updated 

777 : Outputs: 

778 ; RO - pi es diagnostic issued (without file name) if error 
e779 ; R1,R6-R9 altered 

$780 : R2=R5 preserved 

378¢ BOOSREADF ILE: : ; 
278 mMOvVQ R10,-( ; Save additional registers 
2784 MOVZWL #IC$ READLBLK, R10 > Read function 

2785 MOVL W“BOOSGL_RPBBASE ,R11 ; RPB address 

2786 ASHL "9. RD” ; Form byte count to transfer 
2787 BSBwW Q10_RWiB ; Read the srecified blocks 
2788 ASHL #-9,R9, ; Pages not transferred 

2789 mMOVa (SP)+,R10 3; Restore additional registers 
2790 BRB READ_COMPLETE ; Use common exit path 


‘-—-- 


, SYSBOOT 
-v04-000 
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READ_VIRTUAL = Read specified virtual bl 4-SEP-1984 7:06:42 ([BOOTS.SRCIJSYSBOOT.MAR; 1 (4) 
1880 re a ~-SBTTL READ_VIRTUAL = Read specified virtual blocks of a file 
188D 2794 ; Functional Description: ; ; 
188D 2795 ; This routine maps the specified virtual blocks to logical blocks 
188D 2796 ; and reads the desired number of bytes into the specified location 
188D 2797 ; in memory. 
188D 2798 ; 
188D 2799 ; Inputs: 
188D 2800 ; R3 = Virtual Block Number 
188D Be) 3 R4 = Resp ing info for virtual to logical meop ing: 
188D 6 ; of bytes of retrieval pointers following 
188D + ; count of LBN's in first rtrv ptr 
188D 04 ; starting LBN in first rtrv ptr 
188D 2805 ; count of LBN's in second rtrv ptr 
188D 2806 ; starting LBN in second rtrv ptr 
188) 2807 ; 
188D 2808 ; — 
188D 2809 ; 
188D 2810 ; count of LBN's in last rtrv ptr 
188D 2811 ; starting LBN in last rtrv ptr 
188D seis ; R6 = Buffer Address to read into 
188D 2813 ; if system bit is set, then the system map is used 
188D 2814 ; R9 = Byte count to read (quad word aligned) 
188D 2815 ; 
188D 2816 ; Outputs: . ' ; ; 5 
188D 2817 ; RO = Status, diagnostic issued if error (without file name) 
188D sais ; Ri altered — 
188D 2819 ; ALL other registers preserved 
188D 2820 ; 
188D 2821 ;-- 
188D $858 
188D 2823 READ_VIRTUAL: 
OFFC 8F BB 188D 2824 PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
5B 23AG'CF DO 1891 2825 MOVL  W*BOOSGL_RPBBASE R11 © ; Address of RPB 
5A 21 «3C «1896 2826 MOVZWL #10$ READLBLK,R10 ; Read logical block function 
B2 10 1899 2827 BSBB = BOOSAMAPVBN ; Convert starting VBN to LBN 
50 D5 1898 2828 TSTL RO : End of file? 
05 12 189D th BNEQ 40$ ; Branch if not 
25 11 189F 2830 BRB 60$ ; Yes, report the error 
50 84 7D te tt 30$: MOVG (R4)+,RO ; Get the next rtrv ptr 
18A4 $835 : RO = number of blocks that can be read in this portion 
Hb Sate ; R1 = starting LBN to read from 
59 DD 18A4 $B8o dos PUSHL R9 ; Save desired byte count 
50 50 09 78 18a6 tt ASHL #9,RO0,RO : # of bytes that can be read 
50 59 D1 18AA 2838 CMPL R9,RO : If fewer are needed 
03 15 18AD 2839 BLEQ 508 ; Then read the smaller number 
59 50 DO 18AF 2840 MOVL RO,RO ; Otherwise read all we can 
a + op ee 188 841 508: SUBL R9, (SP) ; Note how much is left to be read 
5851 4 188 acs MOVL R1,R ; Starting LBN of read request 
0315 O 1888 284 BSBW 016 _RWLB ; Read or write the file 
59 8& 00 1888 geet MOVL (SPT+,R9 ; Recover byte left to be read 
11 #15 «18BE 62845 BLEQ 908 ; Branch if all done 
E50 €9 18C0 2846 BLBC RO,90$ ; Branch if read error ; 
DB 52 «FS: «=(18C3) «2847 SOBGTR R2,30$ ; Get the next retrieval pointer 
50 0000°BF 3C 186 2848 608:  MOVZWL #SS$_ENDOFFILE,RO ; Indicate EOF error 
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- v04-000 READ_VIRTUAL = Read specified virtual bl 4=-SEP-1984 23:06:42 ([BOOTS.SRCJSYSBOOT.MAR;1 (4) 
56 610 18CB 2849 BSBB  CONEOF _CHECK ; Check EOF to see if booting from console 
50 D5 18CD 2850 TSTL RO ; RO will be cleared if read should continue 
DO 3613 «18CF 62851 BEQL 308 
| OFFC 8F BA : 4 o3¢ 908: POPR #*M<R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R1I1> 
| : 08 534 ; RO = status from read 
18D5 856 READ_COMPLETE: 
oh EB 1805 5 BLBS = =_- RO, 308 ; Branch if read successful 
50 0000'8F 61 18D8 2858 CMPW = #SS$_ENDOFFILE,RO ; If it is an EOF error 
12 18DD 2859 BNEQ $ ; 
190F £00 MSG <-E-End of file error reading > ; Report EOF error 
1€ 11 1900 61 BRB : ; . 
19 £06 10$: MSG <-E-1/0 error reading file > ; Otherwise catchall error 
D6 «(19 6 gpe: CLRL RO ; Indicate error occurred 
05 19 864 350$: RSB 
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~SBTTL CONEOF CHECK 


; Functional Description: 
: This routine checks for a specific end-of-file situation. If we get an EOF 


VMS 
CONEOF 


while ——s SYS.EXE from the console device, a + we will prompt for the 
next volume to be mounted in the console drive. After the next volume is 
loaded, we will open the next piece of SYS.EXE. We will add a Gusey retriev 
pointer which will map the previous piece(s) of SYS.EXE to an invelid VBN. 
inally, we will modify the cogigters so that READ_VIRTUAL can continue to 


‘Cd C8 CD CD CD CD QD OD CD CD 
SIN NN NO AO om 
NOUS WN -OOOnNe 


read in the next piece of SYS 


: wcneaag & Sequence 
; CONEOF CHECK 


R 
ALL other registers preserved 
ONEOF CHECK: 
CMPB 


3; Inputs: 

: RO = sss. ENDOFF ILE 

: R1 = (trash a 

3 : = count of rtrv ptr remaining (should be zero since we are in EOF) 
: R4 = pointer to next rtrv ptr (during eof points past end) 

; RS = (trash) 

; R6 = buffer address to read to 

: R7 = (trash) 

; R8 = highest Lbn in previous read 

3 R9 = arse e couse left to read 

: R10 = #10$ D! BLK 

s R11 = Adurees - RPB 

: Outputs: E . ‘ 

: t ao 0 it epee should be continued, unchanged if EOF error should stand. 
: Ri = (altered) 

5 R2 = Count of valid retrieval pointers in the new section 

: 4 = Points to first valid pointer 

to 


66 AB O91 RPBSB_DEVTYP(R11),- 


8 
C 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
5 
3 ; Booting from the console block 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
7 
7 


Sec 
_CH 
.] 
S 
9 
7 
9 
y 
9 
7 
9 
9 
Ss 
9 
9 
9 
g 
9 
.] 
G 
G 
y 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
923 
926 
928 
92A 
92E 
930 
931 
931 
931 
931 
931 
931 
931 
937 
979 
97A 
a 
8 
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MNP 3 tt 1 | AQOOCODOODOOOO 000000000 000000000000 000000 SI 
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40 8F #BTDSR_CONSOLE ; storage device? 
06 12 BNEQ 10 : Not booting from console, let EOF stand 
2394°CF D5 TSTL W*CONEOF _ENABLE ; Have console EOF's been enabled? 
01 12 BNEQ 208 ; Looks Like a valid EOF, prepare for switch 
05 10$ RSB ; Let the EOF error stand 
208: ; Commit to either switch volumes or halt 
; Perform a com? of sanity checks. Make sure that syspaging is off and that we 
; are reading SYS.EXE. If we are reading SYS, then the next map pointer should 
; be at the end of the map pointer described by SYS_STAT. 
43 0000'CF 00° €1 BBC S“#EXESV_SYSPAGING, W*EXESGL_DEFFLAGS, 30$ 
- ae <-F=Console volume switch attempted with SYSPAGING=1, must be 0> 
50 e500" Cr DO 30$: MOVL W*SYS_STAT+STAT_L_MAP,RO ; Get address of map for SYS.EXE 
0 60 C0 7 ADDL (RO) RO ; Add Length of map to address 
50 04 CO 198 ADDL #4 RO ; Adjust for cong Longword 
50 54 D1 198 CMPL R4, RO : Is it the same 
30 «13 =«198 BEaL «6-408 : If same, this is SYS.EXE 
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0000 
0004'CF 50 
2165'CF 


50 =. 23C4°CF 
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Hoge <-F-Console EOF on wrong file, supported for SYS.EXE only> 
40$: TSTL tm 
M *. <-F-Console EOF before end of map, internal error> 
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3; R2 (ptr cnt) should be zero 


50$: 


; Now we are convinced that we really want to try to do this. 
+ open files by clearing several fields in the stat blocks. 

; entire block in case we need to reopen the file 
; deallocate the file open cache. 


First, disable all 
We do not zero the 


later. We also disable and 


MOVAL W*CONEOF DISABLE_STAT,RO ; First stat block to disable 

MOVL  S*#CONEOF DISABLE_CNT,R1 ; Number of blocks to disable 
60$: CLRL STAT _L_MAP(RO) ; Clear rtrv pointer address 

ADOL #STAT C_SIZE,RO 3 Point to next stat block 

SOBGTR . ; Do all of them 

MOVQ W*BOO$GQ_FILCACHE ,RO ; RO = size, R1 = pool address 

BEQL 70$ ; Branch if no cache enabled 

CLROQ W*BOO$GQ_FILCACHE ; No FILSOPENFILE cache 

ADDL RO,W*BOOSGQ_ INILOA+4 ; Deallocate this with INILOA 
70$: CLRQ W*FIL$GQ_CATHE ; Blast the other file cache too 
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Zero map ing information in the boot control block so that references to these 
files will be trapped. We do not zero the BOOSL_SYS_MAP, since INIT will turn 
it into a WCB for the system. Note that we also have to check these fields 

near the Label MOVBOODRIVER, where the addresses are adjusted. 


MOVL W*BOOTCB,RO ; Address of boot control block 
CLRL BOOSL_PARAM_MAP(RO) ; Clear the parameter area map 
CLRL BOOSL_DMP_VBN(RO) ; Clear dump file info 

CLRL BOOSL_DMP_SIZE(RO) 

CLRL § BOOSL-DMP"MAP(RO) 

CLRL BOOS$L_BUG_MAP (RO) ; Clear the bugcheck area map 


Now, ask the human to switch console volumes. Tell him to remove the old volume ( 
rewind the volume at the same time). Wait for a ‘'Y’’ that says that he is ready, a 
tell him that we are resuming on the new volume. 


PUSHAB W*CONEOF _REMOVE2 ; Second part of remove message 
PUSHAB W*CONEOF REMOVE1 : First part of remove message * 
CALLS #2,W*CONEOF MESSAGE : Print the message that we are goin 
75$:  PUSHAL W*CONEOF_BUFFER ; We must have a buffer 

PUSHL #4 ; Even if only one longword 

PUSHAB W*CONEOF PROMPT ; And the prompt 

CALLS H W*BOOSREADPROMPT : Type the string 
BICB #32,W*CONEOF BUFFER+1 : Force to upper case (ASCIC string 
CMPB ss W"CONEOF_BUFFER+1,#*A''Y"’ ; He has to say Yes 

NEQ 75$ ; Loop until we see the Yes 

PUSHAB W*CONEOF_RESUME2 ; Second part of resume message 
PUSHAB W*CONEOF RESUME 1 ; First part of resume message : 
CALLS #2,W*CONEOF_MESSAGE ; Print the message that we are goin 


; on the stack, so that we can adjust things so that it conceals the fact 


: Reopen SYS.EXE on the next volume. First save the current stat block and rtrv buf 
: that SYS.EXE is in two pieces. 


———— —— — QE — 
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CONEOF _CHECK ad BOOTS.SRCJS/SBOOT.MAR;1 © 
1A6F 2980 ; 
perc er 1Aer 981 PUSHR #R2_R11 ; Save registers 
E 0 1A73 29 ¢ SUBL #STRT_C_SIZE+8 SP ; Allocate the space 
6— 23FO°CF 18 1A76 38 MOvC #STAT _C SIZE ,W°SYS STAT, (SP) ; Move the stat block to the stack 
63 2384'CF D wart 4 MOVQ W*RTRO_BUF_DSC, (R3) ; Save the current retrieval buffer 
| ia 388 3 Everything has been saved, now try to open the next piece of SYS.EXE 
52 23FO'CF 9E 1A81 2988 MOVAB W*SYS_STAT,R2 ; Get address of stat block 
FAFB 30 1A86 2989 BSBw IMAGE OPEN ; Attempt to open the image 
30 50 £8 1A89 2990 BLBS 
1A8C 2991 MSG <-F-Unable to open SYS.EXE on the new volume> 
00 1ABB 299 ALT 
1ABC 9629935 80S: 
1ABC 2994 ; 
1a 444 ; File is now open, fix up the stat block and retrieval pointers 
58 24600°CF DO ABC 2997 MOVL W*SYS_STAT+STAT_L_MAP,R8 ; R&B => the new map 
23FO°CF 6€ 18 28 1AC1 2998 MOVC3 #STAT-C_SIZE, (SP) 7 W*SYS_STAT ; Restore the original stat block 
57 2600°CF DO 1AC7 2999 MOVL WASYS"STAT+STAT_L_MAP,R? : R7 => the original map _ 
23B4'CF 83 7D Ace 909 MOVa (R3)+ 7 W*RTRV_BUF_BSC ; Restore the original retrieval buf 
1AD1 300 ; R7 => the original stat block, R8 -> the new block. We need to create a dummy rtr 
1AD1 3003 ; pointer which maps all of the blocks of the previous mapping list. We then append 
1AD1 Sone ; our new pointers to the List. The modified new list is stored over the original 
1AD1 3005 ; List. Space for several additional map pointers was allocated with the original, 
sd $009 ; make sure that the next piece isn't too fragmented. 
50 68 FD 8F 78 1AD1 S008 ASHL #-3, (RB) ,RO ; Count of new pointers 
2398'CF 50 D1 1AD6 3009 CMPL RO,W*CONEOF _MAX_PTR 3; How many have we allocated? 
31. 15 IADB 3010 BLEQ 90$ ; : _ 3 Enough room 
1ADD 3011 MSG <-F-Continuation of SYS.EXE is too fragmented> 
00 180D soi§ HALT 
1BOE 3013 908: 
1BOE 3014; h 
iON Bia ; First, get number of blocks mapped by previous map 
50 67 FD 8F 78 et 3019 ASHL #-3,(R7),RO ; Count of quadword pointers 
51 04 A7 ODE 181 018 MOVAL 4(R?7),R1 ; Rl => first map pointer 
52 D4 1817 3019 CLRL R ; R2 will accumulate blocks 
54 81 7D 1819 3020 100$: mova (R1)+,R4 ; R4 is count, RS vbn 
52. 54 CO 181C 3021 ADDL2 R4,R2 ; Add this count to total 
F7 50 —sF 5 H+ oh Ose SOBGTR RO,100$ ; Do every old map pointer 
i 034 3; Now create the modified mapping List 
87 68 08 C1 Hy 026 ADDLS #8,(R8),(R7)+ ; Use new Length plus dummy ptr 
87 52 00 1826 3027 MOVL R2,(R7)+ ; Move block count of dummy 
87 01 CE 1829 3028 MNEGL #1,(R7)+ ; Set an invalid LBN 
67 04 AB 68 eB 1BEE 3088 MOVCS (RB) ,4( RB), (R7) : Append the new pointers 
20 cO 1831 3031 ADDL2 #STAT_C_SIZE+8,SP ; Deallocate stack storage 
OFFC 8F BA H+ +4 S ¢ POPR #R2_RT1 ; Restore everything 
1833 034 ; Almost done, all we have to do is set up the registers so that READ_VIRTUAL can 
1833 b32 3 continue with the read. 


nO oe IO OO OOO OO KO ONM OPN OM OCR ONIN OF 


54 = 240" CF 
64 =FD 8F 


54 OC 


00 00A3 CB 00 
50 


0000 CF 


0000' CF 


oom 
Wer 


o oon 
FSDWOOWIOAF —V—WOMomMmDaoneod BWOoOrnrnooon 


H 
- VMS Secondary Bootstrap Routine 
CONEOF _ CHECK 


WP NYWPVS & NVOOOOCOO0OO 809 NNNNN EY 


so 
S 


1BB4 


™ 


32 
TS NVIOMOOON 


— Sete Ge te 


Eek tak tele tat ek del eek) hd 


: Print a two piece message includin 


CONEOF _MESSAGE : 
WORD 
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C000 G9 090900 SI NIN NS NNN NDA PA AAA AAAA MIMI & 
MEW $9 ODNAUES WIN 9 ODNA UE WN OOO NAME WN OC OONOAUS WN —OOOon 


WANNA AIAN AAI WIAI AAAI AANA AAI WWW 


16-SEP-1984 Ne 
4-SEP=1984 23:06:42 
W"SVSSTATSSTAT_L_MAP,RG 
#-3,(R4) ,R2 
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AX/VMS Macro v04-00 
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Get the new, modified map address 
Map byte count to quadword ptr cnt 
Ignore the dummy retrieval pointer 


; Move over Len and dummy to good pt 


ALL done with the switch, set a “hae in the RPB so that anybody can check at any 
5 


later time whether the system disk still there. 


SPOON POSTED ERE POTS PLAGE CET 5 TPF ; Set flag in RPB 


; Tell READ_VIRTU L to resume 


the volume Label. 


4 (AP) Address of first part of string 


8(AP) Address of second part 


R2_R11 
W*BOOSGL_FREEMEM,R6 
6,R5 


#1,R8 

#512,R9 

#10$_READLBLK,R10 
RWLB 


zo 
on 
oO 


<-F-Unable to read continuation 


t 
~ 
nw 
wv 
~ 


Winaasfat 
o 
zo }~o 
wu 
. 
» 
oe 


1(R1) 
-(SP) 


R5 
° W*BOOSREADPROMPT 


§P) 


8( AP) 
#3,W*BOOSREADPROMPT 


te Se Se Se Be Be Be Se 


Save all registers 

Get a buffer for volume header 
Save a second copy 

Read lbn 1 

Read a single block 

Move the read function code 
Read the block 

Branch if successful 
olume> 


Null buffer is print only. 

Pass address of first string 
Type the first string 

Point R5 at the volume Label 
Length of volume Label 

Point R1 one past the end 

R2 contains the byte 

Byte is null, skip it 

Is it a space : 

End of name found, print it 

Do the whole string eae 
No name, don't bother not printing 


Put a null after the string 
Null buffer is print oy 
R5 => front of volume Label 
Type the first string 

Null buffer is print only 
Finish the message — 

Type the second string 


AnvY OA DO & 


c- 


<u 


er ao 


2 


ec 


| 

| SYSBOOT - VMS Secondar 
_ v04-000 QIO_RWLB - Read 
| 1899 $08, 
1BD ; : 
1BD0 3090 
1800 091 
1BD 35 
1800 09 
| 1BD0 3094 
| 1BD0 3095 
1BD0 096 

| 18D0 309 
| 1BD0 098 
1BD0 309 
| 1800 3100 
1BD0 3101 
1BD0 19¢ 

1800 310 
1BD0 3104 
1BD0 3105 
1BD0 3106 
1BD0 3107 
3¢ 1BD0 3108 
Di 1BD5 3109 
15 1BD8 3110 

DO 1BDA 3111 
DD 1BDD 311¢ 

56 EF 1BDF 311 
05¢0 BB 1BE4 3114 
50 34 DO 1BE8 3119 
00 B040 FB 1BEC 3116 
1BF1 3117 
1BF 1 3118 
1BF1 3119 
1050 €9 1BF1 3120 

51 57 €7 BF 78 BFS 3121 
58 51 CO 1BF9 3122 
56 57 CO BFC 3123 
59 57 (C2 BFF 3124 
CC 14 1002 3125 
05 1€04 3126 
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.SBTTL QIO_RWLB - Rea 


PUnettonel Description: 


his routine reads/wri 
from/to the boot disk. 


ce: 
G10_RWLB 


Inputs: 


Buffer address ( 


Bye 

Byte count to tr 
#10$_READLBLK or 
RPB address 


—— O@oO 
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) = Status 
R6-R9 altered 
( other registers pr 


rPawv DwWwWwDwD 


Oo 


B: 
MOVZWL #IOSIZE*512,R7 
CM A 


MOVL  R9,R7 
R14 


EXTZV #VASV_SYSTEM 
PUSHR a 
I 
i 


@ 
| 
mo 
or 
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MOVL RPBSL_IOVE 
CALLS #6,aB00$L_0 


R 
0 
status of transfer, if 
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pP 
F 
d or Write Logical Block 


tes the specified logical block numbers 


updated) 


ical block number (updated) 


ansfer {up to 31 bits) 
#10$_WRITELBLK 


eserved 


; Assume maximum transfer 

; Minimize with file size 

: Smaller than remaining file size 
; Set to remaining file size 

; Base of RP 


1,R6,-(SP) ; Set mode to virtual if systes space 
10> 3; R/W, LBN, size in bytes, buffer adr 
1),R0 3; GET POINTER TO I/O VECTOR 

ROSCROJ ; Perform read 


successful, see if there is any more to do. 


; Branch if error 

: Block count f 

; Starting LBN for next piece. 

; Starting Buf Adr for next piece 
; Count bytes tranferred 

; Branch if another transfer to do 
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ndary Bootstrap Routine 16-SEP-1984 :11:37 VAX/VMS Macro v04-00 P 
04-000 BOOsUS fer ¢ bz 99; tisy orf 


—E - Use parameter file 4-SEP-19 06:42 (BOOTS.SRCJSYSBOOT.MAR;1 
8 o -SBTTL BOOSUSEFILE = Use parameter file 


-o 


Functional description: ; 
BOOSUSEFILE reads the specified file in response to the USE | 
command and merges all of the values specified in that file into 
the working copy of the parameter values. This is accomplished 
ae Saenne up each value specified and merging the associated 
value. 


ahaa - sequence: 
ALL arglist,BOOSUSEFILE 


Input Parameters: ; 
TPASL_TOKENCNT(AP) = Length of file name string 
TPASL_TOKENPTR(AP) = Address fo file name string 

Output Parameters: 

RO = Completion status code 


S 
EF 
1C 1 
if 129 
1¢0 130 
1€0 131 
1€0 1 ¢ 
1¢0 1 
1C0 134 
1€05 135 
1c05 31 § 
1¢05 31 
1005 3138 
1602 139 
1C05 140 
1€05 141 
1005 106 
1005 314 
1005 144 
1005 3145 
1005 3146 ;-- 
1€05 3147 BOOSUSEFILE:: : 
O3FC 1003 3145 ~ WORD “M<R2,R3,R4,R5,R6,R7,RB,RI> 3; Entry mask 
00000000'8F E2 1C07 3150 BBSS WEXESV_WRITESYSPARAMS,- ; Use a file => write current needed 
00 00000000" GF 1D 3131 G*EXESGL_DYNAMIC_FLAGS,1$; 
57 10 AC 9E ei 3135 MOVAB TPASL_TOKENCNT(AP),R7 ; Set address of file name descriptor 
FA62 30 1C17 154 BSBW BOOSF TLOPEN ; Open specified file 
04 50 8 1C1A $122 BLBS RO,20$ 3; Continue if success 
50 01 x 1618 138 10$: a #1,R0 3; Force success 
56 2198°CF DO 1C21 158 20$: MOVL W*BOOSGL_FREEMEM,R6 : Set address of parameter buffer 
C48 3=—30 «1026 «33159 BSBW BOOSREADFILE 3; Read file content into parameter buffer 
F150 €9 1€29 3160 BLBC R ; Exit if error 
2198'CF 8620 C1 Cec 161 ADDL3 #32,W°BOOSGL_FREEMEM,R8 ; Init pointer to parameter buffer ; 
QOOOOOOO'EF 2198'DF 20 28 1C32 3198 move #32,aW*BOOSGL FREEMEM,EXESGT STARTUP ; Set name of startup file 
2390°CF D4 1€3C 316 CLRL W*VALID_PAR_FILE ; Initialize valid parameter file flag 
68 D5 1€40 3164 30$: TSTL (R8) 3; Check for end of List 
50 13 1€42 3165 EQL DONE : Branch if yes 
10 68 9A 1044 3166 MOVZBL (R8),TPASL_TOKENCNT(AP) ; Set token count for search 
14 AC 01 A8 QE 1048 3167 OVAB  1(R8S,TPASC_TOKENPTR(AP): And address of string 
10 CO 1C4D 3168 ADDL #16,R 3; Advance to value 
1C 88 00 1€50 3169 MOVL  (RBS+,TPASL_NUMBER(AP) ; Set number 
OOOO'CF 6C FA 1€54 3170 CALLG (AP),W*BOOSSEARCH ; Search for parameter 
450 €9 1€59 3171 BLBC 0.3 ; Next parameter if not found 
2390°CF 01 DO 1C5C 7 MOVL #1,W*VALID PAR FILE : Indicate valid parameter file ' 
54 AC 00 1€61 317 MOVL TPASL_PARAM(APY ,R4 ; Get a pointer to the parameter descripttor 
22 10 AG 10 €1 1€65 3174 BBC #PRMST_ASCII,PRMSL_FLAGS(R4) 40S; Branch if not an ascii parameter 
14 AC 78 DE 1C6A 3175 MOVAL =(R8),TPASL_TOKENPTR(AP); Get a pointer to the parameter value 
50 14A4 9A 1C6 176 MOVZBL PRM$B_SIZE(R4),RO ; Get parameter size in bits 
50 50 FD of 78 1C7 17 ASHL #-3 ; Set parameter size 
10 ac 450) «(9A=«(1C7 178 MOVZBL RO,TPASL_TOKENCNT(AP)  : 
50 03 cO 1C7B 317 ADDL #3,R0 ; Round size up to the next longword 
50 93 CA 1C7E 190 BICL #2 ,RO : 
58 0 C0 +5 181 ADPL2 =RY,RB 3; Advance past value 
OOOO'CF 6C FA 1C€84 186 CKLLG (AP), W*BOOSSETASCII ; Set the value of the parameter 
FFB4) = sC31 isee 18 BRe 30$ ; Continue with the next parameter 
OOOO'CF 6C FA 1C8C 3184 40$: CALLG (AP),W*BOOSSETVALUE ; Set value of parameter 


SY T = VMS ey Bootst 
ite Boususer ice - Use parene er 
FFAC 31 1C€91 183 BRW 
1B 2390'CF €E8 3 +: 186 DONE: BLBS 


50 6010 «63C «61CB4 «623188 108: 
04 7 3189 
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SG 
en. #1,R0 
RET 


30$ ; Continue with next parameter 
W*VALID_PAR_FILE,10$ me If LBS, valid parameter file 
<-E-Not a parameter fil 

" Return success 
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SYSBOOT - VMS Secondary Bootstrap Routine 16-SEP-1984 90 ize AX/VMS Macro V04-00 Page 64 
v04-000 GETCONLOC_780 = Routine to read console 4=-SEP=-1984 :06:42 (CBOOTS.SRCISYSBOOT.MAR;1 (5) 
HS 19) as -SBTTL GETCONLOC_780 = Routine to read console information location 
| 1¢B 198 ; Functional Description: 
| 1¢B 194 ; GETCONLOC_780 is used to access the locations in 11/780 console 
188 132 H memory containing values such as WCS and FPLA version numbers. 
1788 139 :; Input Parameters: 
ie 138 ; R1 = Location code 
| 1°86 00 ; Output Parameters: ; ; 
| 1788 4 3 RO = Value contained in console cell 
| 168 3508 GETCONLOC_780: 
51 0300 C1 9E 1CB8B 3204 MOVAB = *X300(R1),R1 3 Set code to read console memory 
50 22 DB 1CBD 3205 108: MFPR #PRS$_TXCS,RO ; Get transmit status register 
F9 50 07 ~=2—E1—s 10 $06 BBC #7,R0,1 ; Wait for done 
23 51 «~DA «1CC4 30 MTPR = R1,#PR$_TXDB ; Request data from console 
50 $$ pe 1€C7 08 208 MFPR #PRS_TXTS,RO ; Read transmit status register 
F9 50 1CCA $¥ BBC #7,R0,2 ; Wait for done 
50 20 0B 1CCE 10 30$: MFPR #PRS_RXCS,RO ; Get receiver status 
F9 50 O07 «=©€1 «6101 = 3211 BBC #7,R0,3 ; And wait for done 
50 21 DB 1CD5 3212 FPR #PR$_RXDB,RO ; Now read data value 
03 50 046 O8 ED 1CD8 321 CMP7V 0 #8, #5,R0,43 ; Is this a valid response? 
1CDD 3214 ; BNEW 10 i No, try again 
01 1CDD 3215 NOP peeeeen TEM 
01 1CDE $518 NOP peeenee TEMP 
50 50 9A 1CDF 3217 MOVZBL RO,RO :; Zero extend data 
0 ICES 3519 _ ' 
ices $550 ; Table of microcode revision levels for the 11/780. 
1CE3 3222 VERSVECT_780: ; Vector of version offsets 
6D 1CE3 3223 -BYTE FPLA_VLOC_780 ; FPLA Version offset 
6A 1CE4 3224 -BYTE PCS_QLOC_780 ; PCS Version offset 
6C 1CE5 3225 -BYTE wCSS_VLOC_780 ; WCS Secondary version offset 
6B 1CE6 3226 -BYTE WCSP_VLOC_780 ; WCS Primary version offset 
00000004 1CE? 3227 VERSVEC780LEN=.-VERSVECT_780 : 
00 1CE7 3228 -BYTE : End of List 
1CE8 $$ VERSNUM_ 780: ; Vector of required version numbers 
Oc 1CE8 0 -BYT FPLA_780 : FPLA minimum 
01 1CE9 3231 -BYTE PCS_780 : PCS minimum . 
12 1CEA 3 -BYTE wCSS_780 3 WCS Secondary minimum 
oc cee 234 -BYTE wCSP_780 ; WCS Primary minimum 
1CEC o 4 
4545 $39 3; Table of microcode revision levels for the 11/785. 
1CEC 33 VERSVECT_785: ; Vector of version offsets 
1CEC 9 ~BYTE PCS _VLOC_785 ; PCS Version offset. 
1CED 40 -BYTE MTCA_VLOC_785 ; PCS/WCS match version offset 
1CEE 4 -BYTE Mt eter :; WCS secondary version offset 
6C 1CEF $s pyre WCSP_VLOC_785 ; WCS primary version offset 
0000004 ICE 43 VERSVEC78 LEN=.-VERSVECT_785 is “ooh lla 
3 En 
1CF1 3245 VERSNUM_785: ; Vector of required version numbers 
04 1CF1 6 -BYTE PCS_785 3 PCS minimum 
04 I1CF2 4 -BYTE MTCRA_785 3; PCS/WCS match 
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S T - VMS Secondary Bootstrap Ro io 1 4 AX/VMS Macro v04-00 Page 65 
| 9022880 GE ey Cone oe 0788 Rout ine fo read console - ats 99: 8; i BOOTS. SRCJSYSBOOT.MAR; 1 . (5) 
80 1CF3 ee -BYTE wCSS_7 ; 3; WCOS secondary minimum 
1 ieee 23 3 «BYTE wWCSP=7 : WCS primary minimum 

iffe 51: The code paragraph CHKVERS_780 assumes that both the 780 and the 785 have 
| 1eF8 26 : 4 console locations to check. 

1CF5 3254 * ASSUME VERSVEC780LEN Ed VERSVEC78SLEN 

Pe $522 ASSUME VERSVEC780LEN E 


aan | 
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eg GEYCONLOE 790 ” ’ orgEp= 198 So:dose2 Leoore sAeisysbooT MAR: 1 
et -SBTTL GETCONLOC_790 
: Functional Descri 


tion: 
GETCONLOC 786 is used to read data stored in console memory, 
such as microcode revision levels. 


wn 
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Inputs: 

R1 = code for console data requested 

Re = # of bytes of data expected 

RS = address of buffer to store requested data in 
Outputs: 

Data is stored in the buffer. 


Input registers destroyed. 


GETCONLOC_790: 
CCRL -(SP) Longword of temporary storage. 
1$: MTPR #*xX88000 ,#PRS$_TXCS Disable console terminal transmits 


and request logical console. 


7E 
22 00088000 8F DA 


o 

@ 
a a kk a ek ak td td td = = 8 8 a 
WANNA ANAAAAANAAAAAAA AWWA AA AA AAIA ANNI 
PRIPIPOPININIPININININININININININININIPYPIPIPYNIPYNPINPYIPIPIPIPIPIPOPIPUNINYPIPINIPY 
OOOO OOOO 00000 09 69 09 09 09 09 09 09 SII SINS NSN NO A AAAOAAOOu 
DNAUS WN OS OONAU EWN O OO NAUS WN O00 NOUS Wh —OwW° 


6E 10$: MFPR #PRS_TXCS, (SP) ; Get transmit status. 
F9 6E O07 1 BBC "7, (SP), 10$ ; Loop until ready bit is set. 
03 O1AE 91 0 CMPB (SP) #8 : ID = logical console data? 
EC 12 0 BNEQ 1$ ; If not, try again. 
23. 51° ODA . MTPR R1,#PR$_TXDB ; Send request code to console. 
6— 20 0B 0 208: MFPR #PRS_RXCS, (SP) ; Get receiver status. 
F9 6€ it €1 1 BBC #7,(5P),20 ; Loop until done bit is set. 
6E 1 0B 1 MFPR #PRS$_RXDB, (SP) 3; Get received data. 
03 O1AE 91 1 cmMP 1(SPY #3 i ID = logical console data? 
fo 1 BNE 208 ; If not, throw data away and try again. 
1 3 CMPB (SP),R1 :; Code = requested data returned? 
1 ; BNEQ CONSOLE_ERROR 3; No recovery from protocol error. 
83 6— 90 1 MOVB (SP), (R3)+ ; Put data byte in user's buffer. 
EA 52 FS $ SOBGTR R2,20$ ; Branch back to get another byte. 
8E 05 2 TSTL (SP)+ ; Get rid of fenperery buffer. 
22 00018000 8F DA 2 MTPR #*X18000,#PRS_TXCS ; Disable logical console and 
2 ; enable local terminal Line. 
05 § RSB 
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/ V04=000 MOVERAPPED = MOVE FROM PHYSICAL TO MAPPE ‘SoSEPa]oB¢ So:0es45 LBoOYe SReiSySOOOT MAR: 1 wey“ 
1D2e i ngs SBTTL_ MOVEMAPPED = MOVE FROM PHYSICAL TO MAPPED MEMORY 
1D f ; 3 Functional Description: 
1D2E 5 3 MOVEMAPPED moves the specified number of bytes from the 
| 18 ; be 3 given physical address to a specified system virtual address 
1ID2E 88 3 Ri = physical address to move data from 
1D2E 07 ; R6 = number of bytes to move 
; oe 3 R7 = system virtual address to move them to 
1D2E 10 ; Output perenaterse 
1D2E 3 3 RO - R7 altered 
1D2E \¢ : 
1D E 1 ‘oo 
1D2E 3314 MOVEMAPPED: 
7E 58 7D 1D2E 15 MOvVQ R8B,-(SP) 
58 57 09 OO EF 1031 16 EXTZV #VASV_BYTE,#VASS_BYTE,R7,R8 ; STARTING BYTE OFFSET 
57 57 15 09 EF 1D36 317 EXTZV #VASV-VPN,#VASS_UVPN.R?.R? ; GET VIRTUAL PAGE NUMBER 
57 000000°°"FF47 ODE 1038 18 MOVAL @MMG$GL_SBRLR7]~R7 ; GET SPT ENTRY ADDRESS 
50 D4 104 19 CLRL RO ; BACKGROUND THIS FOR INSV IN LOOP 
1045 0 ; MOVC WILL ZERO IT EACH TIME 
02 11 «+1045 1 BRB 208 
58 DS 1047 § 10$: CLRL R8 ; NO BYTE OFFSET 
50 15 09 87 FO 1D49 3323 20$: = INSV_ (R7)+,#VASV_VPN,#PTESS_PFN,RO ; DESTINATION PAGE ADDRESS 
59 00000200 8F 58 C3 1DéE 324 SUBL3 RB, #512,R9 ; NO. OF BYTES TO MOV 
56 59 Dil 1056 25 CMPL R9,R6 ; DON'T MOVE MORE THAN IS LEFT 
03 15 1059 3326 BLEG )=s «308 : BRANCH IF MORE TO DO 
59 56 dO 1058 327 MOVL R6,R9 ; OTHERWISE USE WHAT IS LEFT 
6048 61 59 28 1025 328 30$: MovCc3 R9,(R1), (RO) CRBI 3 THE NEXT 
56 59 C2 106 ; 9 SUBL R9,R6 s¢ T BYTES V 
DF 14 1D66 0 BGTR 10 ; BRANCH IF MORE TO MOVE 
58 8E 7D 1D68 331 MOVa (SP)+,R8 ; RESTORE SAVED REGISTERS 
0S 1D68 332 RSB ; OTHERWISE RETURN 


] 
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SY T = VMS Secondary Bootstrap Routine 16-SEP-1984 00:11:37 YAX/VMS Macro v04-00 Pa 68 
Woer000 ALLOC_POOL = Allocate Pool From the top 4=SEP=-1984 eee BOOTS.SRCJSYSBOOT.MAR; 1 * (6) 
1066 ¢ oa -SBTTL ALLOC_POOL = Allocate Poot from the top 
1D6C § ; Functional Description: 
1D6C ee This routine allocates the requested amount of pool from 
oa 3 3 the current top of non-paged pool and returns its address 
106C 40 ; ani Sequence: 
196C 3341 ; SBW = ALLOC_POOL 
| 1D6C 42 ; 
| 1D6C 43 ; Inputs: 
1D6C 44 ; R = Address of remaining size of pool 
109 45 ; STAT_L_BYTECNT(R2) = Number of bytes to allocate 
1D6C r4] 3 STAT_L_SYSVA(R2) = Base relative address of location to 
1D6C 3347 ; store allocated address F 
+ #3 rt 3 STAT_L_NAME (R2) = Base relative adr of ASCIC name of file for error msg 
1D6C 50 ; Outputs: 
1D6C 213 RO,R2 preserved 
| 1D6C 26 : Ri = rounded up byte count allocated 
1D6C 22 3 STAT_L_BYTECNT(R2) = rounded up byte count allocated 
1D6C 54 ; Returns to caller only if pool is successfully allocated 
1D6C 55 ; If there is not enough room a diagnostic is issued 
1D6C 3356 ; and a HALT is executed. 
1D6C 3357 j= 
1D6C 338 
1D6C 3359 ALLOC_POOL: : ; 
51 OF Cl D6C 33560 ADDL3) =#*XF,STAT_L_BYTECNT(R2),R1 ; Round desired size up 
51 OF CA 1071 $361 CL #*XF RI 3; to quad boundary 
16 13 1074 306 BEQL : None needed 
04 A2 51 DO 1076 336 MOVL RI,STAT_L_BYTECNT(R2) ; Save allocated size 
60 51 3 1D7A 3364 SUBL R1, (RO) ; Allocate the pool 
OE 19 107d 3365 BLSS 20 ; Branch if no pool left 
7E OB A2 23A0°CF C1 ID7F $08 ADDL W*SYSBOOT_BASE,STAT_L_SYSVA(R2),-(SP) ; Adr to store pool adr 
9€ O000'CF 60 C1 1086 336 ADDL (RO) ,W*MMGSGL_NPAGEBYR,a(SP)+ ; Set adr allocated 
0S 1D8C 3368 108: RSB 
1D8D 3369 
1D8D 3370 208: MSG <-F=-Not enough non-paged post to map > ‘ 
51 OC A2 23A0‘°CF C1 1085 3371 ADDL3 W*SYSBOOT_BASE,STAT_L_NAME(R2),R1 ; Adr of file name (ASCIC) 
0012 3C 1DBC 36 BSBW BOOSTYPE_ASCIC ; Type the name 
00 DBF 337 HALT ; teeee Fatal Error seers 
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v04-Cu0 BOOSFACMSG = Output facility error messa 4-SEP-1984 06:42 (CBOOTS.SRCJSYSBOOT.MAR;1 (6) 
16 Ne -SBTYL BOOSFACMSG = Output facility error message 
10¢ “ ; Functional Description: 
| 10¢ 4 3 BOOSFACMSG outputs an error message preceded by a new Line 
13 4 ; and facility name string. 
10¢ 12 snes Sequence: 
1D¢ ¢ 3 SBW BOOSF ACMSG 
1D 3 -ASCIZ message-text 
1D¢ 4 34+ 
1DC 5 BOOSFACMSG: : : 
10€ § ERROUT: 
E23D" 30 1DC BSBw BOOSMSGOUT ; Output prefix message 
94 D 10¢ : ASCII <CR><LF> ; With a new Line first 
00 54 4F 4F 42 53 59 53 25 1DC -ASCIZ /%SYSBOOT/ ; Then facility name 
E22F* 31 1oce 4 BR w BOOSMSGOUT ; And finally the meat of the message 


ee 
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- Type a counted ASCII st 4=SEP-1984 7:06:42 ([BOOTS.SRCJSYSBOOT.MAR; 1 (6) 


@e 
8 
oe 
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198 ; -SBTTL BOOSTYPE_ASCIC = Type a counted ASCII string 
1001 5 ; Functional Description: 
1D01 $ 3 This routine accepts a string descriptor and types the message 
+t ; on the console terminal 
1DD1 35 3 = Sequence: 
1DD1 0; SBw BOOSTYPE_ASCIC 
1DD1 13 
1001 ¢ ; Inputs: 
108 ? 3 R1 = Address of ASCIC string 
1DD1 5 ; Outputs: 
1DD1 34 $ 3 RO,R1 altered 
1DD1 3 ALC other registers preserved 
1DD1 8 ;-- 
1DD1 09 
1DD1 0 BOOSTYPE_ASCIC: 
50 81 9A 1DD1 1 MOVZBL (R1)+,RO ; RO = Size, R1 = Address of string 
3C 6 BBO1DD4 é PUSHR #*M<R2,R3,R4,R5> ; Save registers 
53 2198°CF 0 1DD6 MOVL W*BOOSGL_FREEMEM,R3 ; Address of ‘scratch storage - 
43 C DDB 4 CLRO (SP) ; No read for PROMPTREAD call 
5 DD 1DDD 5 PUSH R3 ; Address of ASCIZ string 
63 61 50 28 1DDF 6 MOVC RO, (R1),(R3) ; Move the eorses to scratch storage 
83 94 «(1DE3 7 CLRB. (R$) + ; and make it ASCIZ 
OOOO'cF O03 FB 1DE5 8 CALLS #3,W*BOOSREADPROMPT : Type the string | 
3¢ a ieee ; amy #*M<R2,R3,R4,R5> ; Recover saved registers 


ra 
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vou-000 Unexpected Machine Check Handler o2$Eb=138e 3 dose3 taoors. sre SYSBOOT. 7 (6) 


+4 ; ¢ -SBTTL Unexpected Machine Check Handler 
1DED : ¢ g Unexpected Machine Check Handler 
1DED 34 § «ALIGN LONG ; Exception handlers must be longword aligne 
1DF 4 IF DF ,DEBUG ; 
1DF 4 3 ue ; Access violation vector 
1DF 4 MESBREAK:: ; Breakpoint vector 
1DF 430 EXESROPRAND: : 3 Reserved operand vector 
1DF 431 EXESTBIT:: ; TBIT vector 
ad ? ¢ MMGSPAGEF AULT: : ; Pagefault exception vector 
| 1DFO 3434 BOOT_FAULT: ; 
1or8 ri 5 SG <-F-Unexpected Exception>; Output error message 
1E0B 34 $ «ALIGN LONG 3 
1E0C 2438 UNEXP_MCHK: : 
ie ret MSG <-F-Unexpected Machine Check>; Output error message 
1E2B 3441 If DF ,DEBUG : é 
1E2B 3442 INISRDONLY:: ; Dummy change protection routines 
1E2B 3443 INISWRITABLE:: : 
1E2B 3444 SYSLSCLRSBIA:: ; Dummy routine to clear SBIA errors 
0S 1€2B 344 RSB 3 
1E2C 3446 EXESGL_FLAGS:: > Dummy 
1E2C 3447 XDSSGT_WORD _PFN:: 
lege 448 -LONG 0 : 
1E30 3449 -ENDC : 
1E30 3450 ; 
1€30 3451 ; DUMMY SYSSFAO LINKAGE TO EXESFAC 
1£30 £26 . 
1E30 3453 SyS$FAo:: ; 
OFFC 1€30 3454 -WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R1I0,R11> ; ALL REGISTERS 
E1cD’ 31 1E32 3455 BRW EXESFAO+2 ; ENTER FAO 
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/RMS = Show RMS parameters\<CR><LF> 
/SCS = Show SCS parameters\<CR><LF> 


/STARTUP = Show Startup command file name\<CR><LF> 


/SYS - Show SYSTEM parameters\<CR><LF> 
/TTY = Show terminal parameters\<CR><LF> 


- Set parameter file mame /<CR><LF> 


USE file spec.PAR \<CR><LF> 


Reserved filespecs are:/<CR><LF> 


DEFAULT = Use permanent defaults/<CR><LF> 


CURRENT - Use current values/<CR><LF> 
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Miscellaneous constants and temps 


16 136 -SBTTL 
1 497 FILSGQ_CACHE:: 
0000216D 21 4 -BLK ; FILSOPENFILE cache descriptor 
16D 53499 FILSGT_TOPSYS:: 
30 53 59 53 00° 199 500 eASCIC /SYSO/ ; Default top level system dir name 
00002177 1%¢ 501 -BLKB 10-<.-FILSGT_TOPSYS> :; Fill to 10 bytes 
17 5 § BOOSGT_SYSDUMP: : 
50 4D 44 2E 50 4D 55 44 53 59 53 a" \ve 5 eASCIC /SYSDUMP.DMP/ ; Name of dump file 
1 ; 206 BOOSGT_PAGEF ILE: H 
(59 53 2E 45 4C 49 46 45 47 41 50 99" ; ; 505 eASCIC /PAGEFILE.SYS/ ; Name of page file 
| 0c 183 
19 206 
190 3507 BOOSGT_SYS:: $ 
45 58 45 2€ 53 59 53 9" 13 508 eASCIC /SYS.EXE/ ; Name of system image 
198 3509 BOOSGL_FREEMEM:: :; Base of free memory after boot image 
00000000 2198 3510 . 0 : 
19C 3511 BOOSGT_PROMPT: : ; Prompt string 
20 20 3E 54 4F 4F 42 53 59 53 OA +3 4 512 eASCIZ <CR><LF>ZSYSBOOT> % 3 
1A9 3513 BOOSGL_GPTPGCT:: : Count of global page table pages 
00000000 21A9 3514 -LON 0 $ 
1AD 3515 BOOSGL_NEXTPFN:: ; Starting index for PFN scan 
00000000 21AD 318 «LONG 0 : 
181 3517 BOOSGL_SPTPAGCT:: ; Count of pages allocated for SPT 
00000000 2181 3518 -LON 0 : 
185 3519 BOOSGQ_STATBLK:: ; Statistics block for file open 
00000000 00000000 2185 3520 -LON 0,0 3 
1BD 3521 BOOSGL_SYSPHD:: ; Physical address of system header 
00000000 218D 35 § f 0 3 
1€1 3525 BOOSGL_SYSPHDPG: : ; Count of pages for system PHD 
00000000 21Ci $e . 0 ; 
58 45 2E 52 45 56 49 52 44 54 54 o" Acs 525 TINAME: .ASCIC /TTORIVER.EXE/ 3; NAME OF TERMINAL SERVICE CODE 
OC 51D? 3526 
58 45 2E 52 45 56 49 52 44 42 44 oF" i 3258 DBNAME: .ASCIC /DBDRIVER.EXE/ ; Name of RPO6 Driver 
OC 21D 
58 45 2E 52 45 56 49 52 44 4D 44 2 34 3528 DMNAME: .ASCIC /DMDRIVER.EXE/ ; Name of RKO7 Driver 
C 21DF 
58 45 2€ 52 45 56 49 52 44 52 44 09" iff 3529 DRNAME: .ASCIC /DRDRIVER.EXE/ : Name of RMO3/RPO7 Driver 
C 21EC 
58 45 2E 52 45 56 49 52 44 4C 44 09" Ha 3530 DLNAME: .ASCIC /DLORIVER.EXE/ ; Name of RLOI/RLO2 driver 
OC 21F9 
58 45 2E 52 45 56 49 52 44 5B 44 22" 9 3531 DXNAME: .ASCIC /DXDRIVER.EXE/ ; Name of console RX01 driver 
0c 0 
58 45 2€ 52 45 56 49 52 44 44 44 oy" 13 3532 DDNAME: .ASCIC /DDDRIVER.EXE/ ; Name of console TUS8 driver 
oc 13 
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4-SEP-19 


Q 3533 UNKNAME:.ASCIC /UNKDRIVER.EXE/ 


4 
4 
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3; Name of Driver for unknown devices 


/and enter ‘‘YES'' when ready: / 


<CR><LF><BELL>/Please remove the volume ‘'/<BELL> 


/"" from the console device./<BELL><CR><LF> 


<CR><LF>/Resuming load operation on volume *'/ 


/"", please stand by. . 


0 


| 38 6 
68 76 20 7% 72 65 73 49 07 OA op E 
64 6f g} 747 74 78 65 6E 20 6 A 
SOS SE HES Sess 
| 
$9 2 72 65 74 6 6 & 61 A 3536 ASCI2 
TEE SB aH Bs 
00 20 3A 79 64 haces 
(65 72 20 65 73 61 $5 50 97 OA OD 2277 $235 CONEOF _REMOVE1: .ASCIZ 
oe ee eR Be 
6 20 65 7% 20 6D 6F 3 $ 5 2 3% 3539 CONEOF_REMOVE2: .ASCIZ 
63 69 76 65 64 20 65 6C 6F 73 6E 6F 22A 
00 OA OD 07 2€ 65 AE oa 
6C 20 67 6E 69 6D 75 73 65 52 0A 0D 2284 3304 CONEOF_RESUME1: .ASCIZ 
6F 69 4 61 72 65 70 GF 0 64 61 6F 2200 
ocr oe cc 
74 73 20 65 73 61 $3 66 70 20 2c § DA 3542 CONEOF_RESUME2: .ASC'Z 
20 2E 20 2E 20 79 6 20 64 6E 61 2266 
OA OA OD re 543 
00000000 F6 344 CONEOF_BUFFER: .LING 
zh 348 ; DATA FOR LOADABLE CPU-DEPENDENT CODE: 
FA 3548 © 
SA 549 NAME_SYSLOA: 
45 2€ 58 58 58 41 4F 4C 53 59 53 00° gna 550 eASCIC /SYSLOAXXX.EXE/ 
ab oa 
00002301 S08 551 NAME _XXX=NAME_SYSLOA+1+6 
308 338 MODEL_TABLE: 
308 555 MODEL_780: 
20 30 38 37 308 336 sa 75pAStl! /780 / 
20 30 35 37 i 258 moe, 730080! 1750 / 
20 30 33 37 10 360 moe 79505C!! /730 / 
20 30 39 37 9316 56¢ be Se “ASCII 790 / 
| 20 35 35 35 18 264 ead a -ASCII /555 / 
20 36 36 36 231C 366 woe. vis st! 1666 / 
| 20 31 56 55 0 368 moe uv3A5C /uvi / 
20 32 56 55 4 355 - ASCII /uv2 / 
| 8 3571 NAME_SCSLOA: 
| 
| 


~/<CR><LF><LF> 


FILENAME OF LOADABLE 
CPU-DEPENDENT IMAGE 


; ADDR OF XXX FIELD IN 

: E FILENAME 

: EACH LONGWD 

; HAS 3 CHAR MODEL NUMBER+ 1 SPACE 
; VAX 11/780: 

VAX 11/750: 

VAX 11/730: 

VAX 11/790: 


; cpu type = 5 


Sete Se eee 
5 
b 
m 
oO 
be | 
- 
oO 
2 
a 
a 
—] 
7) 


; cpu type = 6 
MicroVAX | 

MicroVAX I] 

Filename of loadable 


Sete Se Se Se Se Se eee 


Page 75 
ew 


4 
$33 CONEOF PROMPT: .ASCII <CR><LF><BELL>/Insert the next standalone system volume / 
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Miscellaneous constants and temps 
45 58 45 2€ 41 GF 4C 53 43 53 +4 


45 26 41 4F 4C 52 54 53 55 4C rt 3 
| 4 ; 


(45 2€ 41 GF 4C 54 41 50 41 52 45 00° 
sg 


| 


‘a 2E 41 4F 4C 54 52 50 4B 48 $3 1 


45 58 45 2€ 4C 55 4D 45 58 41 56 4 


45 58 45 2€ 4C 55 4D 45 50 46 +4 


58 45 2E 53 53 45 43 43 41 54 4D 00" 
0c 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
000023A8 
00000000 


00000000 00000000 


0000238C 
000025¢4 


AAAI AAAI AAI 


3572 eASCIC /SCSLOA.EXE/ 
$377 NAME _CLSLOA: 
; 74 eASCIC /CLUSTRLOA.EXE/ 
3 
41 3333 NAME_ERAPATLOA: 
2 76 eASCIC /ERAPATLOA.EXE/ 
41 
4F 3377 NAME _CHKPRTLOA: 
f 578 eASCIC /CHKPRTILOA.EXE/ 
GF 
50 3228 NAME _VAXEMUL : 
4 580 eASCIC /VAXEMUL.EXE/ 
69 $06! NAME _F PEMUL : 
4 582 eASCIC /FPEMUL.EXE/ 
74 3583 NAME_MTACCESSLOA: 
ie 584 eASCIC /MTACCESS.EXE/ 
74 
81 3585; 
81 286 ; MISC. LOCAL STORAGE: 
81 587 ; 
81 3588 
81 3589 ALIGN LONG 
84 590 SCBPAGCT: 
84 3591 ‘ 0 
88 236 SCBBYTCT: 
88 359 ut 0 
8C 594 SCBPHADDR: 
8C 3595 . LON 0 
90 3596 VALID_PAR FILE: 
90 3597 0 
94 3598 CONEOF_ENABLE 
94 3599 0 
98 600 CONEOF_MAX PTR: 
9 601 .LON 0 
9C ref VMB_VERSION: 
9¢ 360 LON 0 
a one SYSBOOT_BASE : 
A 6 ~LONG 0 
A4 3606 BOOSGL_RPBBASE: : 
AS 60 -BLKL 1 
A ons CPUTYPE: 
A 60 LONG 
a Ht ASSUME VERSVEC780LEN LE 8 
AC ai¢ CPUDATA: 
AC 361 .LON 0.0 
4 3614 RTRV_BUF_DSC: 
4 3615 ~BLK 
C O16 VBN2_BUF _DSC: 
C 561 -BLKQ 1 


16-SEP=1 


=198e 98:9 


1:37 
6:42 


SCS code image 


; Filename of loadable 


code image 


Filename of loadable 
code image 


Filename of loadable 
code image 


Filename of loadable 


Filename of loadable 
code image 


Filename of loadable 
code image 
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BOOTS. SRCJSYSBOOT.MAR; 1 


cluster 


SERAPAT 


SCHKPRT 


re 1 


character and 
decimal instruction emul code image 


FP emulation 


SMTACCESS 


# pages for system SCB 


# bytes for system SCB 
Physical address of SCB 


Valid parameter file 


flag 


poquest volume switch on console EOF 

Initially disabled, do not allow EOF 

Reserved number of retrieval pointers 
for SYS.EXE, less one for the dummy ptr 


VMB version number 


Base address of SYSBOOT 


Base address of RPB 


Copy of cpu type not in SYSPARAMS 
The following space must be Large 
enough to accomodate all of the 


VERVECT info 


Copy of cpu data not in SYSPARAMS 


Size and address of buffer for 
retrieval pointer information 


Size and address of buffer for 


2nd block of each driver 


7" 
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, V04=000 Miscellaneous constants and temps - BOOTS. SRCJSYSBOOT .MAR; 1 (7) 
C4 3618 BooTce: 
00000000 C4 1 -LONG 0 ; Address of boot control block 
C 6 ; Contains BOOTDRIVR, G10 RwvB, 
C 6 3; maps for SYS and SYSD 
C 6 § MEM_LO_PFN: ; Lowest PFN found by VMB (inclusive) 
| et td dO C 6 1 
| D 624 MEM_HI PFN = MEM_LO_PFNS4 ; Highest PFN found by VMB (exclusive) 
D 625 CACHE_HI_PFR: 
00002304 D 6 § Los ; Highest PFN in FILSOPENFILE cache 
D4 6 PFNMAP Hi PFN: 
00002308 D4 «36 8 LKL 1 ; Highest PFN in PFN o*paep Be pa ee 
+ 629 SMALL _PFNMAP: : 3; Saved descriptor for backwa 
000023E0 D 650 LK 1 3; compatible 8mb (max) PFN bitmap 
00000000 3 ? 1 UCODE_LEN: . 9 3 Length of loadable ucode 
3E4 36 : UCODE_ADR: ; Physical addr of it 
00000000 $6 ? : -LONG 0 
i ? $ : Following two cells must be contiguous!! 
E8 3638 VMB_FLAGS: ; Flags passed from VMB 
00000 TE ES cies ° 
00000000 3EC 4) or ss ; Highest PFN for CI support 
3FO 3643 ; Statistics Blocks for various files that are placed in non-paged pool 
#8 one 3; *eee* Do Not Reorder or separate these Statistics Blocks ***** 
3F0 646 gys_ STAT: 
gees Sat He PRE ang Eng bemglasedocacen 
00002190° 23FC 3649 LONG BOOSGT_SYS : Agr of ASCIC name of system image 
00002408 ret $30 -BLKB STAT_C_SIZE-16 
408 $36 3 : The Sot Loutng Stat blocks will be disabled if the console volume has been 
rit $3) 3 3 switched during a boot from the console. 
408 695 Ewer DISABLE, STAT: 
sted 408 637 tn | 50 : Stereing YBN, size in bytes 
00000000 2414 $36 “LONG 60 ; Adr of ASCIC name of dump file 
418 3660 : now filled in at run time 
00002420 $38 661 -BLKB STAT_C_SIZE-16 
4 $66 BOODRV_STAT: 
ate y 420 366 -BLKL 1 ; VBN (not used) 
000024 8 4264 3664 -BLKL 1 : Size in bytes of boot driver 
000000 428 3665 -LONG B00$GL_B00TCB ; Adr to store adr of boot driver 
at Fete 42C 066 -LONG BOODRV"MAP_ERR ; Adr of ASCIC string for alloc err msg 
4 4 66 -BLKB STAT_C"SIZE-16 
4 668 DSKDRV_ STAT: 
00002440 24 | $9? -BLKQ 1 ; VBN and size in bytes of disk driver 
44 670 - LONG OOSGL_DSKDRV ; Adr to store adr of disk driver 
090 2000 200 444 3671 LONG 3; Adr of ASCIC name of disk driver 
448 ore -BLKB STAT_C_SIZE-16 
430 673 PRIDRV_STAT: Roa 
00002458 245 674 -BLKQ 1 ; VBN and size in bytes of port driver 
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00° ce ie 675 «LONG pOOsGi .pRTORY ; Adr to store adr of port driver 
| 0 e or «LONG 3; Adr of ASCIC name of port driver 
024 67 -BLKB STAT_C_SIZE-16 
te 678 TRMDRV_STAT: 
00024 4 67 -—BLKQ 1 ; VON and size in bytes of terminal driver 
00 009 “ 680 «LONG BOOSGL_TRMDRV 3; Adr to store adr of terminal driver 
| Oo0giCS* 2474 3681 "LONG TTNAME : Adr of ASCIC name of terminal driver 
0 480 a 6 ¢ -BLKB STAT_C_SIZE-16 
4 683 SCSLOA_STAT: 
808 at 4 4 684 -BLKQ 1 ; VON and size in bytes of SCS code 
000 On 4 685 -LONG BOOSGL_SCSLOA 3 Adr to store adr of SCS code 
4 3 se 4 6 § «LONG NAME _SUSL OA 3; Adr of ASCIC name of SCS code 
4 4 6 -BLKB STAT _¢ SIZE-16 
498 3688 SYSLOA_STAT: 
000024A0 249 689 -BLKQ 1 3; VBN and size in bytes of CPU dependent cod 
00000000" 24A0 3690 LONG soos SYSLOA 3; Adr to store adr of CPU dependent code 
OOO022FA* 24A4 3691 - LONG AME _SYSLOA ; Adr of ASCIC name of CPU dependent code 
00002480 24A8 236 -BLKB STAT _C_SIZE-16 
480 3693 CLSLOA_STAT: 
00002488 2480 3694 -BLKQ 1 3; VBN and size in bytes of cluster code 
0000 300 488 3695 ~LONG BOOS$GL_CLSLOA 3; Adr to store adr of cluster code 
000023 48C 3696 -LONG NAME_CCSLOA ; Adr of ASCIC name of cluster code 
000024C8 24C0 3697 -BLKB STAT _C_SIZE-16 
4C 698 ERAPATLOA_STAT: 
ets 4C 699 -BLKQ 1 ; VBN and size in bytes of SERAPAT code 
itd 000. 400 3700 -LONG BOOSGL_ERAPATLOA ; Adr to store adr of SERAPAT code 
00002341" 2404 3701 LONG NAME_ERAPATLOA ; Adr of ASCIC name of SERAPAT code 
000024E0 24D 70 -BLKB) STAT_C_SIZE-16 
4E 70 CHKPRTLOA STAT: 
000024E8 2460 3704 -BLKQ ss ; VBN and size in bytes of SCHEPRT code 
00000000° 24E8 3705 “LONG BOO$SGL oa ; Adr to store adr of SCHKPRT code 
tS eta 4EC 3706 LONG NAME_CAKPRTLOA ; Adr of ASCIC name of SCHKPRT code 
0024F8 24F0 707 -BLKB STAT m _SIZE-16 
aF8 708 VAXEMUL_STAT: 
00002500 24F 70 -BLKQ 1 ; VBN & size in bytes of char emul code 
00000000° 2500 3710 -LONG BOOSGL_VAXEMUL : Adr of char/decimal emulation code 
0000235D" 2504 3711 LONG NAME_VAXEMUL ; Adr of ASCIC name of char emul code 
00002510 2508 ne -BLKB STAT_C_SIZE-16 
510 3713 FPEMUL_STAT: 
00002518 218 714 -BLKQ 1 ; VBN and size in bytes of FP emul code 
sae tp 51 715 - LONG pease, F PEMUL : Adr to store adr of FP emulation code 
00002369 251C 3716 ~ LONG AME _F PEMUL s Adr of ASCIC name of FP emulation code 
00002528 2520 3717 -BLKB Stat “C_SIZE-16 
25 n8 MTACCESSLOA STAT: 
00002530 25 71 i ; VBN and size in bytes of SMTACCESS code 
00000000° 2 720 “LONG BOO$SGL pres ce sa. OA : Adr to store adr of SMTACCESS code 
00002374" 4 721 «LONG NAME_M MTACCESSLOA ; Adr of ASCIC name of SMTACCESS code 
00002540 278 4 ¢ -BLKB STAT_C “SHE-16 
0000000 340 f 4 CONEOF _DISABLE_CNT = <.-CONEOF_DISABLE_STAT>/STAT_C_SIZE : Files to “close o 
0000000C rat 4 § ALLOC_POOL_CNT = <.-BOODRV_STAT>/STAT_C_SIZE : Things to alloc real pool for 
00000008 i 8 LOAD_IMAGE_CNT = <.-DSKDRV_STAT>/STAT_C_SIZE : Images to load 
54 730 BOODRV_MAP_ERR: 
1 
52 56 6% 52 44 54 GF 4F 42 00° 2540 353 -ASCIC /BOOTDRIVR/ 
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LONG 


0 LONG 
741 PATCH “AREA: 
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744 - END 
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| SYSBOOT :11:37 VAX/VMS Macro v04-00 
Symbol table :06:42 ([BOOTS.SRCJSYSBOOT.MAR;1 
| SSBASE = 00000001 BOOSGL _GPTPGCT Q000Z1A9 RG 
| SSDISPL = 09 8 BOOSGL_ IRPCNT eteneree 8 
| SSGEN : 1 BOOSGL-LRPCNT etererre =X 
| SSHIGH = 4 7 BOOSGL“LRPMIN eeeeeere xX 
| SSLIMIT = 0 BOOSGL_LRPSIZE eeeteree =X 
| $$L0u = 00000001 BOOSGL-LRPSPLI eeeerere x 
| SSMINSW = 00000001 BOOSGL-MTACCESSLOA poorecee am 
| SSMXSW = : Boo 1 BOOSGL_NEXT 000021AD R 
ADD_CACHE O1EA R 0 BOOSGL-NPAGEDYN eeerenes * 0 
ADD" RPB_MEMDSC 0001563 R p BOOSGL PG 0000254A R He 
ALLOCPFA OOO16F1 R BOOSGL_PRT aeeeerer 3 
ALLOCSPT pp0r ae R BOOSGL_RPBBASE 000023A4 RG ° 
ALLOC_DRIVERS ie & BOOSGL"SCS eeeteree =X 
ALLOC =F ILCACHE 000113A R BOOSGL-SPLITADR aeeeeere =X = 03 
LOC" IRP OOOOFF4 R 0 BOOSGL_SPTF eeenesee =X 8 03 
ALLOC_LRP OOOO10SE R 0 BOOSGL_SPTFREL eeeverer§= KX 05 
LOC" POOL 00001D6c¢ R 0 BOOSGL-SPTPAGCT 00002181 RG 03 
ALLOC_ POOL _CNT = 0000000C BOOSGL SRP aerereee XK 03 
LOC"SRP Q0O000F91 R BOOSGL-SRPSPLIT eeeeeere = X 03 
ARCSM_CHAR_EMUL = 00000010 BOOSGL-SYS eeeerere = X 03 
ARCSM_CRC_EMUL = Bootetes BOOSGL_SYSPHD 0000218D 03 
ARCSM_OCMC_EMUL 0000020 BOOSGL_SYSPHDPG 000021C1 RG 03 
ARCSM_DFLT_EMUL 00000100 BOOSGL_TRMDRV eeeerere =X 03 
ARCSM_EDPC_EMUL = 00000040 BOOSGL_UC eeeneree§ Xx 03 
ARCSM_FFLT_EMUL 00000200 BOOSGL_VAXEMUL eeeeneee =X = 03 
ARCSM_GFLT_EMUL 00000400 BOO$GQ~F ILCACHE aeeeeeee =X = 03 
ARCSM_HFLT_EMUL 000800 BOO$SGQ_INILOA eeeeeere =X = 05 
ARCSV_CHAR-EMUL 00000004 BOO$GQ"STATBLK 00002185 RG 03 
ARCS$V_CRC_EMUL 00000007 BOOSGT_PAGEF ILE 00002183 R 03 
ARC$V_DCML_E 00000005 BOOSGT_PROMPT 0000219C RG 03 
ARCSV_DFLT_EMUL 00000008 BOOSGT_SYS 00002190 RG 03 
ARCS$V_EDPC_EMUL 00000006 BOOSGT_SYSDUMP 00002177 03 
ARCS$V_FFLT_EMUL 00000009 BOOSGT-TOPSYS eeneeeee = X = 03 
ARCS$V_GFLT_EMUL 0000000A BOOSIMAGE_ATT eeeeeree Xx 03 
ARCSV_HFLT_EMUL 000000 BOOSL _BUG MAP = 00000024 
BELL 000000 BOOSL” CHECKSUM = 00000000 
e ARAM eeereree = X 03 BOOSL _DMP_MAP = 00000020 
BOOSA_SYSPHD erereree§ xX 05 BOOSL_DMP_SIZE = 0000001C 
TYP = 0000000A BOOSL _DMP = 00000018 
BOOSCACHE_INIT eeeeeree KX 03 BOOSL-PARAM_MAP = 00000004 
BOOSC _) eeereeee§ =X 03 BOOSL_SYS_ = 00000014 
BOOSC_LENGTH = 00000028 BOOSL_SYS_SIZE = 00000010 
BOOSC _SYSPARSZ eeeerere§ = KX 0 BOOSL _SYS = 0000000C 
BOOSF ACMSG 0001060 8 BOOSMAPVBR 0000184D 83 
BOOSF ILOPEN 00167C BOOSRSGOUT eeeeeeee =X 0 
BOO$GB_NODE NAME eeeeeeee XK 0 BOOSREADF ILE 00001871 03 
BOO$SGB-SYSTEMID eeeeeeee KX 0 BOOSREADPROMPT teeeeeee =X 0 
BOOSGE TPARAM aeeeeeee 2 8 BOOSSEAR eeeeeeee =X 8 
IVEHELP 00001E B00 SETASCII aeeeeeee =X 
BooseL. TCB eeeeerer KX 0 BOOSSETMA OOOO181F R 03 
BOOS$GL~ CHKPRTLOA eeeeeeee§ X 0 BOOSSETVALUE eeereeee§ =X = 03 
BOOS$GL~CLSLOA eeeeeeee§ XxX 0 OOSTYPE ASCIC 00001DD1 R 03 
BOOSGL ~ DE VNAME eeeeeere XK 0 BOOSUSECOR aeteeeee =X Hy 
BOOSGL —DSKDRV eeneeeee§ X 0 BOOSUSEF ILE 0001c05 RG 0 
BOO$GL~ERAPATLOA eerereee X 0 BOOS SIZE = 00000 08 
BOO$GL "Ff PEMUL eeeeeeee§ =X 0) Boy MAP_ERR 0002540 R 03 
BOOSGL —FREEMEM 00002198 RG 80 BOODRV~STAT 0002420 R 0 
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“SEP-1984 00:11:37 VAX/VMS Macro V04=00 Page 3) 
"TSEp=198e 93:08:45 Laooressee SYSBOOT.MAR; 1 ( 
ymbol table 4EFD 
‘si an ae ste : Baie 
NPAGE _SPT p 0 4 OPS_CVILP . 000 36 
| NUMERATOR = 0000906F =CVTPL = 00 444 
‘SecA? = Rosset Set-tvt = 8580883 
= it) FFD - = 
OP$_ACBG 4 OO06FFD OPS_CVTROL = 0048 
OP$_ACBH “ 0 OPS_CVTRFL = $0088FB 
OP$-ADDD ~ 33 4 OPS_CVTRGI = 000068FD 
OP$_ADDD = 00000040 OPS" CVIRHL = 00000009 
OPS ADDF = 00000041 OPS _CVTSP = 0000006 
OP$_ADDF = 000040FD OPS _CVTTP = $0 006D 
OP$"ADDG s 6 1FD OP$_CVTWD = 00000040 
OP$_ADDG 5 3 060F D OP$-CVTWF = 00004DFD 
A006 OP$~CVTWG DFD 
ae es Sait : sate 
" 000 - - 
OP$"ADD = 0000008 OP$~DIVD = 90000046 
OP$ASHP = 0000007¢ OPS_DIVE = 0000004 
OP$_CLRD = 000000D4 OPS_DIVF = 000046FD 
OP$_CLRF = 0000007C OP$_DI1VG = 000047FD 
OP$-CLRG = 00007CFD OP$_DIVG = 000066FD 
OPS_CLRH = 00000071 OP$_DIVH = 0000676 D 
OP$_CMPD = 00000051 OP$-DIVH = 900000e7 
CMPF _DIVP pa 8 
OPS CMP = O0007IFD OPS_EDITPC = 00000074 
OP$_CMPH = 00000035 -EMODD = 00000054 
OPS-CAPPa = 90000087 OPS ~ERODG = 90003680 
eek = 9agggce Hehe = 9990088 
OP$_CVTBF ® oo00e¢r OP$~MNEGD = 00000052 
OP$_CVTBG = QO006CFD OP$_MNEGF = O0003¢FD 
OP$_CVTBH = 00000068 OP$_MNEGG = 000072FD 
OPS-CVIDF = 90000076 OPS-ROVD” = 90000070 
x = 000032FD - = 
CVTDH a OP$_MOVF : SOF D 
OPS~CVTDL 2 90000069 OP$"MOVG = 0000708D 
OPS-CVIFB = Sonneses OPS-MOvP = Bonen se 
- = 000 - oa 
OPS~CVTFD = 000099FD OPS _MOVTC = 0000002F 
“EVTFG “7 OP$_MOVTUC . 64 
OPS CVTFA = 0000006A OP$~MULD = Banyooss 
OPS-CVTFL = 00000049 OP$_MULD = 90000044 
ae : Basse ae : Hisee 
- 00 " . 
OPS~CVTGF = 000056FD OPS~MULG = BO00GSED 
OP$~CVTGH = QOO0AFD OP$_MULG > doageerD 
OP$_CVTGL = 000049FD OP$_MULH = Q00065FD 
OP$~CVTGw = 000068FD -MULH = 9000023 
OP$_CVTHB < tg OP$_MULP = 000000 
OP$~CVTHD = OOOOF6FD OP$_POLYD = 9909 55 
OP$~CVTHF . 00076 OP$~POLYF = Soooeeee 
“CVTHG - OP$_POLYG = 000075FD 
OPSTEVTH “4 ppp eaED P$_POLYH = 090000¢A 
UL = 0000006E 6 tT = 00000038 
OPS~CVTLF = 0000004E - 
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Symbol table 4-SEP=1984 25:06:42 (BOOTS.SRCJSYSBOOT.MAR;1 (7) 
| OPS_SPAN = 0000002 PRSV_SID_TYPE = 1 
OP$_ SUBD = 2 06 PRS. POBR™ = 6 0 
OP$_ SUBD = 0000006 PRS_POLR z 8 
OP$_SUBF = 0000004 PRS_RXCS = 00000020 
OP$_SUBF = 0000004 PRS_RXDB = 0000 1 
OP$~SUBG = 000042FD PRS_SBR = 0000000¢ 
OP$~SUBG = 44 FD PRS$_SCBB = 00000011 

OP$_SUBH = 000062FD PRS$_SID = O80 08 

OP$_SUBH = 000065FD PRS_SID_TYP730 = 0000000 

OP$~SUBP4 = 000000 PRS$_SID_TYP750 = 00000002 
OP$_SUBP6 = 000000 PR$_SID_TYP780 = 00000001 

OP$_TSTD = 90 PRS_SID_TYP785 = $0 0009 

OPS_TSTF 2 5 PRS_SID-TYP790 = 0004 

OP$_TSTG = 000053FD PRS_SID_TYPMAX = 90900008 
OP$-TSTH = 000073FD PRS$_SID_TYPUV1 = 0000000 

OVERLAY _vMB 00000201 R 03 PRS_SLR = i444 
PATSA_NONPGD_CODE_END eeeeeeee =X 03 PR$_TBCHK = 0000003F 
PATCH_AREA 00002556 R 03 PRS$_TBIA = 00000039 

PATCH DESC 0000254E RG 03 PRS_TXCS = 445 e 4 

th 000007F9 R 03 PR$_TXDB = 0000002 

PCS_780 = 00000001 PRS _WCSD a 44h $3 

PCS_785 = 00000004 PR780$_ACCS = 00000028 
PCS_VLOC_780 = 0000006A PRMS$B_SIZE = 00000014 

VLOC_ 785 = 0000006A PRMSL_FLAGS = 00000010 

PFNSAB_STATE teeeeere =X = 03 PRMSV-ASCII = 00000010 
PFNSAB_TYPE eeereeee =X = 03 PRTDRV_STAT 00002450 R 03 
PFNSAL BAK eeneeeee Xx 03 PSL$M_TBIT = 00000010 
PFNSAL_PTE eeeeeeeer =X 8603 PTESC_ERKW = 30000000 
PFNSAW_REF CNT eeeeeeee =X 03 PTESC_KOWN = 00000000 
PFNSAW_SWPVBN th ee, ee |b PTESC_URKW = 70000000 
PFNSAX_BL INK eeereree = X 03 PTESM_PFN = OOIFFFFF 
PFNSAX~FLINK eeneeere =X 03 PTESM_VALID = 80000000 
PFNSC_CONG_LEN teereeee = X 03 $S"PFN = 00000015 
PFNSC_WORD LEN eeeenere = =X = 03 PTESV_PFN = 00000000 
PFNSGB_LENGTH eeeeeeee§ =X 8603 Q10_ROLB 00001BD0 R 03 
PFNMAP-HI_PFN 00002304 R 03 QUOTIENT 000007F5 R 03 

FN_SPT 000 R 03 QVSSSINPUT aeeeeree =X 8 03 
PHDSB_PAGF IL = 0000001F QVSSSKEY eeneeeee = =X = 03 
PHDSC_LENGTH = 0000017C QVSSSKEYTABLE eeeereee =X 8 035 
PHD$L_FREPOVA = 00000028 QVSSS$OUTPUT aeeeeeee =X 03 
PHD$L_POBR = 0G00000C8 2R11 = QOOOOFFC 
PHD$L_POLRASTL = 000000CC READ_COMPLETE 000018D5 R 03 
PHDSL_PSTBASOF F = 00000020 READ_SYS_ERR 00001404 R 03 
PHDSW_DFWSCNT = Q0000001A READ VIRTUAL 90001880 a 03 
PHD$W_PHV INDEX = 00000042 RPBSB_CONFREG = 00000090 
PHDSW_WSAUTH = St 49 RPBSB_CTRLLIR = 00000108 
PHDSW_WSAUTHEXT = 00000014 RPBS$B_DEVTYP = 00000066 
PHDSW_WSEXTENT = 00000016 RPBS$B_FLAGS = ese 
PHD$W_WSLAST = SS RPBSC_LENGTH = 00000109 
PHDSW_WSNEXT = 0000001 RPBSL_ADPPHY = 0000005C 
PHD$W_WSQUOTA = 00000018 RPBS$L_BADPGS = 00000104 
PHDSW_WSSIZE = 00000050 RPBS$L_BOOTRI = 000000 8 

PHYP_ER 000008C6 R 0 RPBSL_BOOTRS = 000000 

POL SGDWSDEF AULT teeeeece =X 0 PBSL_IOVE = 00000034 
PQL$GDWSQUOTA teeeeree =X 8 RPBSL_IOVECSZ = 000000358 

POL SGMWSDEF AULT eeeteree =X RPBSL_MEMDSC = tgs 
PQLSGMWSQUOTA eeeereee§ x 03 RPBSL_PFNCNT = 0000004C 
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SYSDUMP" STAT 
SYSLSCLRSBIA 
SYSLOA_STAT 
S¥S_STAT 
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TPASL_NUMBER 
TPASL_PARAM 
TPASL_TOKENCNT 
TPASL”- TOKENPTR 
TRMDRU_STAT 
TTNAM 
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UCODE _ADR 

UCODE "LEN 

UNE XP~MCHK 
UNKNARE 
VASS_BYTE 
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VASV_BYTE 
VASV_SYSTEM 
VASV~VPN 
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VALIB PAR_FILE 
VAXSERULATE 
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vend BUF DSt 
BUF 
VERSAUM 
VERSNUM 
VERSVEC EN 
VERSVEC7 N 
VERSVECT 
vE CT 


SL-LO-PFN 
vme$o-F ICECACHE 
$0" NODENAME 


ws 
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fe 
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= 00000060 
= 00000004 
eeereeee rf 03 
geereres : O3 
gererene 0 
00001E2C RG” 03 
few ewe ew nme cm ase ece + 
: Psect synopsis ! 
te aewo re nraceaerennn y 
Allocation PSECT No. Attributes 
00000000 < 0.) 00 ¢ OO.) NOPIC USR 
Q000000SC <¢ 60.) 01 ¢ 1.) \NOFIC USR 
00000000 <( 3°} 02 ¢ ¢-} NOPIC USR 
000025BA ( 9658.) 03 ¢ -) NOPIC  USR 
tm e eee wee et eer ee een etre we ne 
: Performance indicators ! 
Page faults CPU Time Elapsed Time 
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_VAK=1 Macro Run Statistics BOOTS.SRCJSYSBOOT.MAR;1 
ge iH x 
: 60: 4 
Assembler run totals 260 :01: 


Symbol table sort _ 00:06 4 : 
BORE SS 
6 0:0 3°81 
The york ing oof i fais was 1350 pages. 


P :00:13. 
Symbol table output 7:00:00. : 
Psect synopsis output 7:00:00. : 
; :1 

bytes pages) of virtual memory were used to buffer the intermediate og? 

There were 140 pages of symbol table space allocated to hold 2469 non-local and 247 local symbols. 
6496 source Lines were read in Pass 1, producing 61 object records in Pass 2. 


Cross-reference output 
174 pages of virtual memory were used to define 170 macros. 
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! Macro Library statistics ! 
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Macro Library name Macros defined 
-$255S$DUA - BOOTS .OBJJBOOTS.MLB;1 1 
_8255$0UA28: (SYS.O08JJLIB.MLB; 26 
$255$DUA28: (SYSLIBISTARLET.MLB;2 15 
TOTALS (all Libraries) 42 


2372 GETS were required to define 42 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSBOOT/OBJ=OBJ$:SYSBOOT MASD$: CEMULAT.SRCJMISSING/UPDATE=(MASD$: CEMULAT.ENHJMISSING) +MASD$: (BOOTS. SRC JSYSBOOT/UPDATE 
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